حسين العربى

السلام عليكم ورحمة الله وبركاته اخواني اعضاء ومشرفي المنتدي الكرام اريد حساب الفرق بين وقت الحضور ووقت الانصارف من العمل في استعلام مع حساب وقت التاخير مع العلم ان الدوام يبدا من الساعة السابعة ونصف صباحا يوجد مثال به جدول واستعلام للتطبيق عليه 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

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

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

الف شكر استاذي الفاضل علي تعبك معي بس انا توصلت الي حل اخر بالنسبة للسيرفر وضعت الجدول في قاعدة بيانات SQL وجعلة قيمة حقل التاريخ NOW وعملت ربط من برنامجي بالجدول عن طريق ODBC وعملت استعلام مرتبط بالجدول ومن خلال النموذج بستدعي التاريخ والوقت عن طريق دالة DLookup من الاستعلام فيستدعي لي تاريخ السيرفر وسوف اشرح ذلك بالفيديو ليستفيد الجميع لاكن طلبي الحين لو تكرمت ليكتمل عملي اريد كود مقارنه يظهر لي رسالة تنبيه اذا كان حقل وقت السيرفر غير مطابق لحقل وقت كمبيوتر المستخدم واقصد بالوقت الساعه فقط مع تلاشي الدقائق والثواني لاني احيانا يكون في فرق في الدقائق بين السيرفر وجهاز المستخدم وشكر واسف علي الاطالة

استاذي الفاضل jjafferr انا جربت التعديل وظبط معي طيب ايه رايك لو نضع الجدول الي موجود في الملف BE الموجود علي السيرفر في SQL ونربطه بالواجه FE عن طريق ODBC فما هو التعديل علي الوحده النمطيه لا ني بصراحة مش عاوز اعمل ملف شير لاني دي شركة

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