حسين العربى

Up

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

الف شكر استاذي الفاضل husamwahab هذا هو المطلوب بالظبط جزاك الله خير وذادك الله من علمه

الف شكر استاذي الفاضل ده الفرق بين وقت الحضور ووقت الانصراف لاكن اريد ان يحسب الوقت بالساعه والدقيقه واريد خانه اخري فيها حساب عدد ساعات التاخير وشكرا

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

الف شكر اساتذتي الافاضل جزاكم الله خير

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

استاذي الفاضل ابو ابراهيم الف شكر علي مرورك الطيب هذه بعض المعلموات علي حسب ما فهمت هو برنامج فيجول ستديوا اقلاعه من خارج اكسس التطبيق النشط نعم عنوان التطبيق D:\KFM\CivilIdHtmlDemo.exe وهذا هو البرنامج المراد عمل Minimize له من خلال كود في زر امر في نموذج اكسس KFM.rar

Up

Up

up

كود لعمل Minimize لبرنامج معين ولنفترض برنامج تيم فيور مفتوح مثلا اريد عمل Minimize لهذا البرنامج

UP

Up

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اريد كود في زر امر لتصغير برنامج معين مفتوح علي سطح المكتب

تفضل استاذي الفضل الشرح بالفيديو

لاشكر علي واجب نحن نتعلم منك استاذ الفاضل وهذه فكرتك بس انا وضعت لمسه صغيره فقط

كما تفضلت استاذي الفاضل jjafferr انشأة جدول وسميته tbl_DateTime في قاعدة بينات سيكول يتكون من معرف/ وحقل تاريخ القيمة الافتراضية ()getdate وحقل اسمه tamp نوعه نص وفي النموذج وضعة حقل غير منضم وجعلة قيمته الافتراضية (1) /لاني النموذج عندي غير مرتبط بجدول / وفي حقل البحث وضعت كود لادراج رقم 1 من حقل tamp الي الحقل tamp / في جدول tbl_DateTime وبعد الادارج في الجدول يعطينا التاريخ والوقت الحالي للسيرفر فاستدعية في الحال عن طريق دالة DMax في حقل في النموذج اسمه srvr_Date_Time وفي زر الادخال توضع المقارنه بين تاريخ الجهاز وتاريخ السيرفر

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

استاذي الفاضل جعر اسف جدا تعبتك معي التعديل علي الكود الذي ارسلته لك لايعمل معي اما المثال الثاني الذي تفضلت به يعمل بس لا يحدث الوقت انا ضفت سجل وبقي عليه لاياتي بجديد ملوحظه في جدول SQL لابد من اضافة سجل لعطيك تاريخ وقت جديد ليس مثل الاكسس يظهر لك تحت السجل تاريخ وقت جديد

استاذي الفاضل jjafferr لوتكرمت تظبط لي الكود علي الفورم انا وضعت الكود والبيانات المطلوبه ولاكن في اي مكان اضع اسم الحقل الذي يستدعي فيه الوقت TEST.mdb

الف شكر استاذي الفاضل بالعكس انا هدفي هو المقارنه لكي لايتلاعب المستخدم في وقت وتاريخ الجهاز ولاكن لي استفسار المقصود ب اسم المستخدم وكلمة السر الي هما خاصين ب SQl ولا ايه

استاذي الفاضل jjafferr لم انتبه لهذا الكود ممكن شرح Dim cmd As New ADODB.Command Dim RS As New ADODB.Recordset cmd.ActiveConnection = "Provider=SQLOLEDB;DataSource=yourserver;Database=yourDB;UID=test;PWD=test;" cmd.ActiveConnection.CursorLocation = adUseClient cmd.CommandText = "Select getdate()" Set RS = cmd.Execute Debug.Print RS(0) RS.Close cmd.ActiveConnection.Close

الف شكر استاذي الفاضل صالح حمادي