rudwan

استاذنا أبو هادي لم أنتبه لأول مره الى المواقيت , لاحظ أن المثال المرفق أعطى التوقيت اليومي لمدينة الرياض على سبيل المثال المغرب 17:04:49 العشاء 18:23:23 بينما المواقيت الفعليه للمغرب 17:06 و للعشاء 18:36 اي بفارق دقيقه في المغرب و حوالي 13 دقيقه في العشاء أما باقي الأوقات فهي مطابقه

يعني باقي الآن فقط جزء بسيط من البرنامج و هو اضافة بقية المدن في العالم مع تحديد احداثياتها . طيب أنا مستعد للمشاركه , و سأبدأ ان شاء الله بالبحث عن بيانات المدن و الدول , بانتظار وجود مشرف لادارة البرنامج تحياتي

لا يكفي نسخ الأكواد فقط . لا بد من تغيير اسماء الحقول المستخدمه ف يتلك الأكواد الى نفس أسماء الحقول في الملف الجديد عندك , هذا من ناحيه و من ناحيه ثانيه , يجب أن تتوافق أنواح الحقول المستخدمه في ملفك مع مثيلاتها في الأكواد يعني مثلا في الكود لديك exp1 نوعه نص غير اسم exp1 الى اسم حقل نص في ملفك , و التاريخ تاريخ و هكذا

الأخ مصلح السلام عليكم و رحمة الله و بركاته قمت بتحميل الملف و لكن أرسل لي رساله خطأ بوجود مرجع ناقص عندي و هو msado15.dll قمت بتحميل هذه الأداة و لكن الملف mdb لم استطع اضافتها الى مرجع النمط

اخي العزيز قمت بتحميل الملف و لم أفهم منه شيئا , فما هو راتب أول , و راتب ثاني و راتب ثالث . طالما أن الملف غير منظم و غير واضح فلا أستطيع أن أجيب عن استفسارك . اذا كان لديك برنامج صغير تريد تصميمه لأجل عمل خاص بك فاحسن طريقه تجعله يلبي احتياجك أن تقوم بتصميمه أنت بنفسك ابتدار من الصفر , و لا تعتمد على برامج الآخرين فما كان يصلح لغيرك ليس بالضروره يصلح لك . ابدأ بتنفيذ برنامجك خطوه خطوه مبتدأ بوضع الأفكار التي تريدها من البرنامج ثم اعداد الجداول الخاصه به و أخيرا عمل النماذج . و كل الساده المشرفين معك في حال ورد لديك اي استفسار .

استاذنا ابو هادي السلام عليكم و رحمة الله و بركاته برنامج جميل و مفيد . و لكن لماذا لاتتفضل أنت و تكون مدير المشروع و ذلك لسببين : الأول أنت صاحب هذه الفكره و الثاني و هو الأهم : أنك أجدر من يقوم بهذه المهمه , فأنت أبو دوال أم القرى و يشرفني أن أكون أول اعضاء الفريق المشارك

أوضح لي ما الذي تريد عمله بالضبط اذا كنت تريد تطبيق هذا المثال على مشروع خاص لك , عليك نسخ الأكواد فقط الى ملفك بالاضافه الى النمط module و بعد ذلك قم بتغيير اسماء الحقول فقط في الأكواد الى الأسماء التي عندك في الملف الذي تعمل به ,

أخي الكريم انظر المثال المرفق في هذا المثال لدينا الجدول الرئيسي و اسمه Transactions فيه : مسلسل - رقم الموظف - تاريخ الحركه نتعامل مع رقم الموظف و ليس مع اسمه حتى يسهل الربط مع الجداول الأخرى في حال كان لدينا أكثر من جدول و حتى لا يلتبس علينا رقم الموظف و نريد ادخال اسمه , ننشء جدولا مستقلا للموظفين اسمه Emplyee فيه : رقم مسلسل - اسم الموظف حتى نستطيع الربط بين رقم الموظف و اسمه : اذهب الى جدول Transactions - الحقل EmpName نجعل نوعه رقم و ليس نص ابقى المؤشر على اسم الحقل نفسه , تجد في الأسفل لوحتين general - lookup اذهب الى قائمه lookup display control = combo box row source = اضغط على الأزرار الثلاثه المتتاليه يفتح لك نافذة تصميم استعلام جديد و هو عباره عن الاستعلام الذي يجب أن يأخذ قيمته منه اختر الجدول Emplyee ثم اختر الحقلين : EmpID - EmpName اغلق الاستعلام من مربع الاغلاق , و هنا سيرسل لك رساله لحفظ مصدر البيانات و اختر نعم , و بعد الاغلاق سيعطيك الكود التالي SELECT Emplyee.EmpID, Emplyee.EmpName FROM Emplyee ; الأن , اذهب الى : السطر الذي بعده column count وهذا عباره عن عدد الحقول التي تريدها أن تظهر في الاستعلام ابتداء من أول حقل في الجدول , و اجعل قيمته 2 لأن عندنا حقلين اترك سطر و اذهب الى الذي يليه column witdh عرض الحقل الذي سيظهر في الاستعلام اجعل قيمته = 0 اذا كنت تريد أن يظهر لك اسم الموظف فقط أو اجعل قيمته = 0cm;2.35cm اذا كنت تريد اظهار الحقلين معا : الآن احفظ الجدول و ابدأ بكتابة البيانات تجد في حقل رقم الموظف يعرض لك الأسماء بينما تخزن الأرقام تلقائيا فيه db15.zip

اليك هذا المثال الرائع لللأستاذ الرائع الفنان أبو هادي مع العلم أن له موضوع مستقل في المنتدى و لكن لم أعرف الى أي قسم تم ترحيله Tree.zip

أخي العزيز من مبادىْ طرح المشاركات في هذا المنتدى أن لا يتم طرح أكثر من موضوع في موضوع واحد . لذلك اطرح سؤالك في موضوع جديد ذو عنوان واضح , حتى تعم الفائده على الآخرين و كذلك حتى يتسنى للساده المشرفين أيضا الرد على هذا الموضوع تحياتي

و عليكم السلام أنا آسف على التأخير حيث أنني مشغول جدا هذه الأيام , و قد عملت لك الملف على السريع و لكن بدون تنسيقات تجميليه , يبقى عليك أن تقوم بتنسيقه على ذوقك مع العلم : 1- تم دمج جدولي سندات الصرف و الدفع في جدول واحد اسمه transactions 2 -مجموع صرف و قبض من كل عمله و الرصيد بينهما موجود في النموذج currencies 3-جدول حركات كل زبون و مجموع الصرف و القبض و الرصيد موجود في النموذج الزبائن 4-نموذج ادخال سندات قبض جديده اسمه " حركة مقبوضات " , استعرض الحركات القديمه أو اضغط على الزر اليسار لادخال حركة جديده 5-نموذج ادخال سندات دفع جديده اسمه " حركة مدفوعات " , استعرض الحركات القديمه أو اضغط على الزر اليسار لادخال حركة جديده 6-تم استبدال عملة الشيكل الاسرائيلي ( محاها الله من الوجود ) بعملات عربيه , و أسأل الله أن يطهر أموالك منها , و يبدلها خيرا منها عملات اسلاميه anabosi.rar

أخي الكريم أرجو بداية أن لا تردد في طرح أي سؤال يخطر ببالك , و لا تقفل هذا الموضوع و في ذهنك شي عالق . أولا : الاجراء procedur - يكتب في أي مكان في النموذج و يكون private اي خاص بهذا النموذج أو عام puplic و يكون خاص بقاعدة البيانات كلها , اذا كان سيستخدم في جميع نماذج الملف و يتم تعريفه ضمن قسم الأنماط modules اختر اي اسم للاجراء الذي تريد شرط أن لا يكون كلمه معرفه من كلمات أو دوال الأكسس ثم اكتب فيه العمليات التي تريدها . و بعد التعريف يجب أن تحدد أنت أين تريد أن تستخدم هذا الاجراء و عند اي حدث و اعلم أن كل عنصر تحكم في النموذج له عدة أحداث : before update اي قبل تغيير قيمة هذا العنصر after update اي بعد تسجيل قيمه لهذا العنصر enter عند الدخول الى عنصر التحكم و قبل الكتابه فيه exit عند الخروج منه و بعد الكتابه فيه مباشرة change عند تغيير القيمه و توجد أحداث عديده أيضا , المهم تعرف أن تختار الزمن الصح لاستدعاء الاجراء فيه مثلا الملف الذي بين أيدينا , مصمم البرنامج الأول جعل حساب سنوات الخبره بعد الانتهاء من ادخال الفتره الرابعه , طيب اذا لم يكن لدينا سوى فترتين يكون من المنطقي اذا تغيير مكان الحدث و استخدام الاجراء call me ليتم تفعيله في حدث الخروج من كل فتره دون الحاجه للانتظار الى ادخال بيانات الفتره الأخيره . لو غيرت مكان الحدث و جعلته قبل الدخول الى مربع نص لن يحسب لك العمليه صح أما حدث عند الدخول الى مربع النص : Private Sub exp1_Enter() If IsNull(Me.from1) Or IsNull(Me.to1) Then Exit Sub Me.exp1.Text = CalcAge(Me.from1, Me.to1) End Sub فهو يحسب لك سنوات الخبره للفترة التي تقوم بادخالها , و يمكن أن تحصل على نفس النتيجه لو جعلت المعادله تحسب بعد الخروج من تاريخ الى كما يلي Private Sub to1_Exit(Cancel As Integer) If IsNull(Me.from1) Or IsNull(Me.to1) Then Exit Sub Me.exp1.Text = CalcAge(Me.from1, Me.to1) End Sub ضع نفس المعادله في حدث after update لنفس العنصر to1 يعطيك نفس النتيجه و للتعرف على مكان الأحداث , اكتب الاجراء البسيط التالي ضمن النموذج الذي في الملف و لنسميه SayHello private sub SayHello() msgbox " السلام عليكم و رحمة الله و بركاته " endsub الآن عندك اجراء يعرض لك رساله السلام عليكم خذ مربع النص from1 و استدعي هذا الاجراء اي بكتابة كلمة sayhello فقط , استدعيها عند جميع أحداث هذا العنصر , قبل التغيير و بعد التغيير , و عند الدخول و عند الخروج ,و جرب الجميع و حاول ادخال بيانات للفتره الأولى , تجد ماهي الأحداث لكن لا تستدعيها كلها مره واحده , استدعي كل مره عند حدث مختلف حتى لا تختلط عليك الأمور , يعني استدعيه أول مره عند حدث قبل التغيير فقط , ثم احفظ النموذج و جرب بعدها عد الى التصميم و احذف حدث قبل التغيير و استدعي حدث بعد التغيير و هكذا .

عادي لا اثقال و لا حاجه call me هذا ليس داله معرفه في الأكسس , و انما هي اجراء شخصي أنا قمت بتعريفه بنفسي لا حظ في الكود تعريف هذا الاجراء , private sub callme() اكتب هنا ما تريد end sub و هذا يستخدم حسب الحاجه , فانا في هذا المثال حتى لا أكرر المعادله بعد كتابة كل مربع نص من فترات الخبره , أكتفي بتعريف اجراء يحسب سنوات الخبره مره واحده ثم استدعيه باسمه عند اي حدث أريده

نعم يا أبونادر , و أنا لم أكتب هذا التعقيب الا نداء استغاثه حتى أراك لأني من زمان لم أجدك على الماسنجر

طيب اذا كنتي لا تريدين تقريبها , لماذا لا تبقيها على وضعها الحالي بدون معادله أو يمكن التحكم بعدد الأرقام بعد الفاصله من خلال المنازل العشريه ان كان من الجدول : decimal places = 1 أو من الاستعلام كذلك , أو من النموذج نجعل عنصر التحكم properties - foramt - format = standard deciaml places = 1 و اذا لم يكن هذا هو المطلوب ممكن أن ترسلي لي الملف على ايميلي r13532002@yahoo.com

شكرا أخي أبونادر على التعقيب و جزاك الله خيرا حيث لم أدخل أمس الموقع أبدا و لكن جرب في نفس الحقل field2 اجعل format = standard decimal places = 0 انظر الجدول table1 تعطي المطلوب دون الحاجه الى الكود :pp: Decimalplaces.zip

أخي العزيز الحقول المنضمة شيء , و الحقول المخفيه شي آخر العناصر المنضمه ( سواء مربع تص أو غيره ) هي عناصر مصدر بياناتها أحد الحقول الموجوده في الجدول أما العناصر غير المنضمه ( أيضا مربع نص أو غيره ) , فهذه هذه مصدر بياناتها ليست عنصرا من قاعدة البيانات و انما تكون محسوبه , أي معادله أو ما يشابهها و تستخدم لاستخراج قيمه معينه مثلا : الضريبه = الراتب * 12 % الراتب : عنصر منضم لأنه سيكون مأخوذا من أحد حقول الجدول أما الضريبه فهي قيمه محسوبه من الراتب و ليست حقلا في الجدول لذلك هي عنصر غير منضم . و الآن : كلا من العناصر المنضمه و غير المنضمه في النموذج يمكن أن تكون ظاهره أو مخفيه حسب ما تريد , و ذلك كما يلي ضع المؤشر على العنصر الذي تريده ثم اضغط بالزر اليمين للفأره على خصائص ثم تنسيق - ثم مرئي ( اجعل الخاصيه صح اذا كنت تريده ظاهر , و لا اذا كنت تريده مخفي ) أو prpperties - format - visible (yes or no

حاول تحميل هذا الملف ملف معدل

اخي العزيز تجد شرحا مفصلا في الرابط التالي : حماية قاعدة البيانات و معرفة من دخل اليها

أختي الكريمه من شاشة تصميم النموذج --> مربع النص للحقل الذي يعرض تلك الأرقام المطلوبه بالزر اليمين للفأرة خصائص ----> تنسيق ---> الفاصله العشريه= 0 أو Properties --> Format ---> Decimal Places تعرض الأرقام صحيحه بدون اي كسور عشريه

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

أختي الكريمه أعطينا مثال عن الأرقام التي عندك , و كيف تريدين تنسيقها حتى نعرف ما هي الداله المناسبه لهذه الحاله

أخي أبو اسامه حاول أن ترسل الملف الى بريدي التالي r13532002@yahoo.com و سوف أصلحه لك ان شاء الله تعالى و أضعه في المنتدى

هل هذا هو المطلوب ؟ exp.zip

اخي العزيز لايمكن عمل حقل ناتج معادله رياضيه ضمن الجدول نفسه , لأن الجدول يخزن بيانات ثابته فقط , أما البيانات المحسوبه فلا بد من استخراجها بواسطة معادله رياضيه و يمكن أن تكون عن طريق استعلام أو عن طريق نموذج . لنفرض عندك جدول فيه حقلين المسافه Distance الزمن Period اعمل استعلام بسيط , اطلب منه الجدول الذي فيه بياناتك , اختر الحقلين : distance period ثم اذهب الى الخانه الثالثه في الاستعلام ( صفحة التصميم ) و اكتب : Speed:[distance]/[period] أما اذا كانت تريد النتيجه في نموذج : افتح نموذج جديد - اختر فيه حقلي المسافه و الزمن ثم اضف مربع نص جديد من شريط الأدوات واكتب فيه =[distance]/[period]