ليـــــــــــــنا حداد

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

الأخوة الأفاضل : السلام عليكم ورحمة الله وبركاته ،،، عندي مشروع بسيط معمول على قاعدة البيانات اكسس ، وأريد أن احسن من مظهره قدر المستطاع ، بس المشكلة البسيطة اللي عندي هي انه يظهر عندي في أعلى شريط القائم المختصرة مربع المساعدة المكتوب عليه (type your question here) وأنا لا أريد أن يظهر لي هذا المربع ،،، انا أعرف أن الكل راح يقول هذه سهلة روحي للتخصيص واختاري ما تريدين واتركي مالا تريدين من قوائم بمجرد نقرة باليمين ،،، بس هذا الشيء جربته أكثر من مرة وإذا اخترت اخفاء القائمة كلها ، صحيح راح يختفي المربع بس يرجع مع أول دخول ثاني لك ،،، أرجوا أن تجربوا قبل أن تردوا ،،، ولكم مني جزيل الشكر ،،،

بارك الله لكما و بارك عليكما و جمع بينكما فى خير بارك الله لكما و بارك عليكما و جمع بينكما فى خير بارك الله لكما و بارك عليكما و جمع بينكما فى خير

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

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

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

ما زبتطت يا أخي : رضوان السلام عليكم خليني أقول لك ايش سويت ، أول شيء عملت جدول فيه جميع الحقول التي في جدول ال modifecation بعدها ذهبت إلى جدول الصادر ، ثم أضفت فيه حقلين اللي هما modefy name و modefy date زي كده لأني نسختهم من المثال ، المهم وبعدها ذهتب إلى شاشة تعديل الصادر وفي الحدث عملت عن before Update الكود الموجود في المثال ،كله من أوله لآخره ، وعند الفتح وضعت كود آخر أيضاً موجود في المثال المهم هذا ما عملته ، بس مع الأسف توصلت لأي شيء ،، فعندما اعدل في شيء معين وأذهب لجدول التعديلات لأرى التعديل الذي عملته أجده فارغاً ، ما أدري ليه ، ممكن لابد من تغير اسم النموذج والجدول وهكذا فأنا لم أغير أي شيء كل ما عملته هو نسخ ولصق ،، تنبيه : على الأخوة الأعضاء عدم الأخذ بهذه الخطوات حتى يتم التأكد من صحتها ،، واللكم جزيل الشكر ،،

الأخ رضوان : السلا م عليكم ورحمة الله وبركاته، سأقول لك الخطوات التي عملتها خطوة خطوة : أولاً قمت بانشاء مديول جديد ولصقت فيه الكود الطويل الموجود في هذه المشاركة , ثم ذهبت إلى أحد الجداول عندي وغيرت اسماء حقلي تاريخ الصادر والموافق على mydate و gregdate مع تغير صغية الميلادي إلى نصـ، ثم في نموذج الصادر غيرت أسماء الحقلين مع العلم أنني جعلت محل اسم الخلية lebel وبعدها ذهبت إلى الحدث في After Update ووضعت الكود Private Sub MyDate_AfterUpdate() Me.GregDate = GetGreg([MyDate]) وهكذا ولكن مع الأسف لم تعمل معي هذه الطريقة ،،، هل يوجد أي خلل أو ناقص فيما قمت به ، لأن حقل الميلادي يبقى فارغاً بعد تعبئة الهجري ، السؤال الثاني هو هل يجب علي أن أغير أسماء الحقول ام أنني ممكن أن أتركها كما هي ومن ثم أغيرها في الكود ،،، وشكراً

الأخ : رضوان السلام عليكم ورحمة الله وبركاته ،،، أولاً الحمدلله أنني استفدت من الموضوع كثيراً والأهم من هذا انني استفدت أكثر من هدفي من الموضوع ، والأهم من الاثنين هو أن الموضوع حاز على أكبر عدد من المشاهدات أي أكثر من 750 مشاهدة مما يعني أن عدداً كبيراً من الأخوان قد استفادوا منه ، ونحن نتمنى أن تنال أجر الجميع ،،، وأخيراً وليس آخراً كلمة شكراً قليله بحق والله الموفق

الأخ : التقني وجميع الأخوة المحترفين ، هذه المشلكة عامة تعرض لها الكثير ممن يستعملون قواعد البيانات ، فأنا مثلاً توجهني هذه المشكلة بشكل كثير ، والحل العشوائي الذي اتبعه هو إزالة علامة الصح من أي حقل في vb reference يخص library أو أي شيء لم أفهمه ، وهذه الطريقة لا تنفع في كثير من الأحيان ، فنرجوا من الجميع من كان مرت عليه هذه المشكلة وعرف يحلها أن لا يبخل علينا بالحل ... وشكراً لطرح الموضوع والتعليقعات ،،،،

يعطيك العافية : في ناس كثيرة ما تفهم إلى بخطوة خطوة وأنا أولهم وانت يا أخ رضوان عارفنا فلا تحرجنا وتخلينا نسأل كل مرة وين اضع الكود ، الشيء الثاني هو عندما أفتح وحدة نمظية جديدة وألصقه يأخذ أكثر من وحدة وعند حفظها يطالبني بتسميتها فهل يجب أن أسميها اسماء معينة ولا 1 و 2 يكفوا مثلاً ، ملاحظة ما أريده هو أن احول تاريخ الهجري إلى ميلادي وعندي حقلين في الجدول الواحد كلهما صيغتهما تاريخ ووقت فماذا تقصد عندما تقول أن الاكسس لا يقبل ،،، وشكراً

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

بس وين يا أخي الخطوات ، لا تبخل علينا هههههههههههه يلا ورينا شطارتك ، مشكورين

السلام عليكم ورحمة الله وبركاته،،، الأخوة المشرفين والأعضاء لكم مني اطيب التحيات ،،، أرجو الاستفادة من خبرتكم أنا عندي شاشات فيها حقلي تاريخ بالهجري وبالميلادي ، فهل هناك طريقة تغنيني عن ادخال كل الحقلين وأكتفي بادخال واحد فقط ، كأن ادخل الهجري ويحول هو تلقائياً تعبئة الحقل الميلادي ،،، وشكراً

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

بارك الله فيك اخي أحمد العيسى وجعله في موازين حسناتك ،،، كما نتمنى أن الا تبخل علينا بمزيد من أعمالك الطيبة ولك وعد منا أن ندعوا لك في ظهر الغيب ،،، وشكراً

الطريقة الأولى قمت بعمل جدول فيه الحقول التالية : اسم المستخدم وتاريخ الدخول وتاريخ الخروج ونموذج الدخول ، وقمت بوضع زر حفظ في كل نموذج من نماذج الادخال ، بحيث ان على المتستخدم أن يضغط على الحفظ قبل الخروج ، وفي زر الحفظ وضعت عند الحدث الكود () Dim SQL As String DoCmd.SetWarnings False 'On Error GoTo Err_Command98_Click On Error Resume Next SQL = "INSERT INTO UserLogs(DateLogs,TimeLogs,EventLogs,Username) VALUES(#" & _ Format(Now, "mm/dd/yyyy") & "#,#" & Format(Now, "hh:mm") & "#,'نموذج ادخال حساب','" & _ gUser & "')" ترى أنه اسم النموذج هنا ( نموذج ادخال حساب) وفي كل نموذج ادخال فقط كنت انسخ وألصق وأغير اسم النموذج على حدة ، أما في التعديل فلا تبدو لي الصورة واضحة ، النتيجة التي أحصل عليها من جدول الذي قمت بإنشائه وهو الذي فيه الحقول المذكورة أعلاه ،، وجزاك الله عنا كل الخير

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

آسفه نسيت ، ممكن كمان تفيدني في طريقة معرفة ما هو التعديل الذي قام به المستخدم ، فأنا لدي جدول فيه اسم المستخدم وتاريخ الدخول ومحل الدخول ، وذلك بعد أن يعمل حفظ لأي سجل يدخله ،،، بس ما أعرف كيف يمكن أن يعمل في حالة التعديل ،،، وليس الادخال الجديد،،، وشكر اً

السلام عليكم : أنا جربت الملف المرفق ولم استطيع أن استفيد منه لأنه يطبق تفعيل وعدم تفعيل الشفت على الملف فقط فإذا خرجت منه لا ينفع مع ملفي ، فما الحل ،،، وشكراً

الله يسلمك يا أخي : أولاً مشكورة على تواصلك معي ، ثانية لقد قمت بإلغاء جميع الخيارات من قائمة statup بدء التشغيل ومع الأسف الشديد أنني لم أستطع استعادة أي شيء من أجل التعديل أو عرض التصميم على أي نموذج فزر الفارة لا يعمل أبداً ، وأنا الآن محتارة لا أعرف كيف أعدل على شيء ، لا تخاف الحمدلله أنني احتفظ بنسخة منه ،،، أرجو السرعة في المساعدة ، هناك شيء آخر وهو كيف أستطيع أن أعرف الأخوة المتواجدين في المنتدى في وقت واحد ،،،

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

الأخ : رضوان السلام عليكم ورحمة الله وبركاته ، أولاً أعتذر عن عدم ردي ومتابعتي للموضوع منذ فترة ، وذلك لسببين الأول وهو أنني كنت مزكمه فلم أذهب للدوام ، الثاني هو أنني تحديت نفسي في تعلم الكود وكيفية كتابته بعد أن رأيت أنه لابد من تعلمه ، وذلك صرت أقرأ وأقرأ وأبحث وقلت لنفسي لو لم أستطع أن اتوصل لشيء أعود إليك ، ولكن الحمد لله مع أنني لم أتوسل لكتابة كود واحد بس عرفت كيف أنسخ الكود وإلصقه (يعني وين أحطه) وكيف اذهب لفجوال بيسك وهكذا ، الحمدلله استطعت أن استخدم مثل هذا الكود ، Private Sub Command98_Click() Dim SQL As String DoCmd.SetWarnings False 'On Error GoTo Err_Command98_Click On Error Resume Next SQL = "INSERT INTO UserLogs(DateLogs,TimeLogs,EventLogs,Username) VALUES(#" & _ Format(Now, "mm/dd/yyyy") & "#,#" & Format(Now, "hh:mm") & "#,'نموذج ادخال محضر','" & _ gUser & "')" عملت جدول فيه اسم المستخدم وتاريخ الدخول وتاريخ الخروج ومكان الدخول ، والكود وضعته في حالة الحدث عند النقر في الزر الحفظ ، أما بالنسبة للملف مع الأسف لم أستطع أن أحمله فلك ما احاول تطلع لي رسالة تقول عفواً، لقد حدث خطأ ما. إذا لم تكن متأكداً من طريقة استخدام أي خاصية، أو لا تعرف سبب هذا الخطأ حاول البحث في ملفات المساعدة لمزيد من المعلومات لقد حصل الخطأ التالي: وهكذا ،،، على العموم نحن لا نستغني عنكم أبداً ،،، وشكراً بقي لدي استفسار بسيط فأنا لم أستطع حتى الآن إيقاف عمل المفتاح f11 فما الحل ،،،

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

أخي العزيز ، أشكرك على التوضيح الجميل ، ولكن المشكلة عندي هي أنني لا أجيد استخدام الأكواد ولا أعرف أين أضعها حتى لو عملت لها نسخ/ لصق ، بعد عمل هذا أين ستظهر لي النتيجة يعني هل أعمل تقرير معين أم ماذا ، فأنا والله محتارة، ولكن أحس أنني راح أكون محترفة من وراء أيدكم وبالنسبة لإخفاء صفحة البيانات من شريط أدوات الأكسس، لقد قمت بذلك ولكن المشكلة هي أنني لا أتمكن من استعادة شريط المعلومات ، وكيف اوقف عمل الزر F11 ثم استعيده عند الصيانة ،،، وألف ألف شكر