اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

أ / محمد صالح

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4486

  • تاريخ الانضمام

  • Days Won

    198

 نوع المحتوي 

كل منشورات العضو أ / محمد صالح

  1. أ / محمد صالح
    ضع هنا الكود الموجود في المشاركة 2 بدلا من جوجل سيتم استعراض الملف المذكور في المسار
  2. أ / محمد صالح
    أخي الكريم لإزالة الفرز أو حتى التصفية يمكنك استعمال هذا الكود DoCmd.ShowAllRecords
  3. أ / محمد صالح
    أخي الكريم يمكنك استعمال هذا الكود لتحديد الرابط الذي يتم فتحه في الكائن webbrowser في النموذج Private Sub Form_Load() Me.WebBrowser0.Navigate "http://www.google.com" End Sub أو عند الضغط على زر كما تحب وساعتها تستبدل جوجل بما تريد من روابط
  4. أ / محمد صالح
    أعتقد أن آلية عمل مراقبة لأعمال المستخدمين الآخرين ليست هكذا وإنما ينبغي علينا عمل جدول جديد وليكن اسمه actions يحتوي على اسم المستخدم و نوع الحركة وتاريخ الحركة وحينما يقوم مستخدم مثلا بإضافة سجل معين يكون ضمن كود الإضافة كود لإضافة سجل في جدول actions يوضح اسم المستخدم وأنه اضاف السجل رقم كذا في جدول كذا ويمكن للمراقب قراءة هذا الجدول ضمن صلاحياته هو وحده والله أعلم
  5. أ / محمد صالح
    والله أنا لم افهم ما تقصد ومادمت وصلت للحل فينبغي عرضه هنا لإخوتك فلربما تعرض أحدنا لمثل هذا الموقف ويفضل أن يكون عرضك للموضوع بالتفصيل ومدعما بالصور إن أمكن كل عام أنتم جميعاً بكل خبر
  6. أ / محمد صالح
    وعليكم السلام ورحمة الله وبركاته يمكنك جعل مسار الملفات مرتبط بمسار البرنامج فلو مثلا وضعت الصفحات في مجلد باسم html والملفات اسمها file1.html يمكن استدعاؤها كالتالي CurrentProject.Path & "\html\file1.html" وهكذا
  7. أ / محمد صالح
    نعم يمكنك ذلك أخي الكريم ضع في الخاصية interval القيمة 1000 وضع هذا الكود في حدث ontimer Private Sub Form_Timer() Label5.Caption = date_diff([NDate], Now()) End Sub تم إضافة تسمية label لظهور التاريخ الذي يتم تحديثه عليها ومرفق ملفك بعد التعديل Mas_TimeAndDate.rar
  8. أ / محمد صالح
    رائع أخي يحياوي كل عام أنتم بخير ولمن يريد إغلاق الملف وعدم إطفاء الجهاز يضع رمز التعليق قبل السطر التالي Shell "shutdown -s -t 02", vbHide لأنه هو المسئول عن إطفاء الجهاز
  9. أ / محمد صالح
    المشكلة في ملفك أخي الكريم هي جعلك لتنسيق التاريخ في حقل الآن hh:mm:ss والصواب yyyy/mm/dd hh:mm:ss حتى يظهر كما بالصورة المرفقة مني وكذلك التاريخ الثاني .... بالنسبة لآلية عمل الدالة من خلال تتبع الكود تجد أن : السنين هي السنة الجديدة - السنة القديمة وإذا كان الشهر القديم أكبر من الشهر الجديد يتم طرح سنة من السنوات وإضافة 12 شهر على الشهر الحالي وإذا كان الشهر الحالي أكبر فالشهور هي طرح الشهر الحالي - الشهر القديم وهكذا
  10. أ / محمد صالح
    اعذرني أخي الكريم فلم افهم المطلوب بالضبط ياريت توضح المطلوب على الملف المرفق في المشاركة 16 http://www.officena.net/ib/index.php?showtopic=39025&view=findpost&p=215168 وهل هو لا يفي بالغرض؟
  11. أ / محمد صالح
    كل عام أنتم بخير أخي الكريم أبا خليل لم أنتبه إلى أنه يوجد تنسيق في مربع النص لذلك بنيت فكرتي على أن يظهر الفارق بنصه الموجود في الكود .... وطبعاً كما قلت يجب الاستغناء عن تنسيق التاريخ الموجود في مربع النص بالنسبة للأخ lording كل عام والجميع بكل خير
  12. أ / محمد صالح
    بارك الله لك إنها سليمة 100% وهذا الدليل هذه هي البداية أن تحاول
  13. أ / محمد صالح
    نعم هذا ممكن إذا كان التاريخ القديم أيضا مسجل بتنسيق به الساعة والدقيقة والثانية وليس مجرد تاريخ به اليوم والشهر والسنة لأن في هذه الحالة سيتم اعتبار الوقت هو الثانية عشرة صباحاً بمعنى 1/1/2000 تساوي 1/1/200 00:00:00 ولكن أترك لك فرصة استنباط خط سير الكود وتنفيذه على الساعات والدقائق والثواني كما تم تنفيذه على السنين والشهور والأيام وتذكر المثل الرائع لا تعطني سمكة ولكن علمني كيف أصطاد
  14. أ / محمد صالح
    تفضل أخي الكريم المرفق كما تريد ... تم حذف التحقق من صحة الأوزان تغيير المعادلة لتقرأ من خلية أخرى بها الوزن بعد تنزيله لأقرب 500 mas_(3)_2.rar
  15. أ / محمد صالح
    أخي الكريم يوسف عطا ياريت توضح اي السطور تريد معرفتها فأكيد ترجمة السطور الخاصة بالتكرار ب for لا تخفى عليك
  16. أ / محمد صالح
    خيراً فعلت أخي محمد ونعم الرجال أخي عبد الله وأخي عماد الحسامي وفقنا الله جميعاً لكل ما يحب ويرضى وكل عام أنتم جميعاً بكل خير
  17. أ / محمد صالح
    في هذه الحالة يمكنك استعمال هذا الكود في حدث بعد التحديث R_AfterUpdate Me.Recordset.FindFirst "المعرف = " & [R] بدلا من DoCmd.GoToRecord acDataForm, "نموذج1", acGoTo, [R] لأن الكود الثاني للذهاب لسجل معين بدلالة رقمه أما الكود الأول فهو خاص بالبحث عن السجل بدلالة حقل من حقول الجدول
  18. أ / محمد صالح
    أخي الكريم هذا موضوع مشابه http://www.officena.net/ib/index.php?showtopic=36752 وأقترح عليك التعامل مع المدة على أنها ايام وذلك من خلال الجمع أو الطرح فبطرح تاريخ نهاية الخدمة - تاريخ مباشرة العمل يعطي الناتج بالأيام ثم تجمع عليهم عدد ايام الخدمة الإضافية ثم تطرح منهم ايام الانقطاع ثم في النهاية تحول هذا الرقم من الأيام إلى سنوات وشهور وايام
  19. أ / محمد صالح
    إذاً ما هو المطلوب بصورة أكثر دقة حتى نحاول جميعاً في الوصول إليه
  20. أ / محمد صالح
    لا أعتقد وجود دالة ضمن أوفيس لهذا الغرض
  21. أ / محمد صالح
    يمكنك استعمال هذه الدالة Function chkhl(hl As Range) As Integer chkhl = IIf(Dir(hl.Value) = "", 0, 1) End Function وطريقة استدعائها كالتالي =chkhl(A1) وتكون النتيجة 1 للرابط الموجود و صفر للرابط غير الموجود
  22. أ / محمد صالح
    تفضل أخي الكريم تم عمل دالة جديدة لحساب الفرق بين التاريخين mas_lordring2-29-10.rar
  23. أ / محمد صالح
    ياريت مزيد من التوضيح
  24. أ / محمد صالح
    معنى بدون أكواد أنك تختار الطريق الأصعب وهو النسخ واللصق يدويا وهذا الأمر لا تحتاج فيه إلى رأي أو خبرة أحد يمكنك أخي الكريم عملها بنفسك مادمت اشترطت بدون أكواد وكل عام وجميع الإخوة بكل خير
  25. أ / محمد صالح
    أخي باسم سعيد كل عام أنتم جميعا بخير وبعد إذن أخونا عبد الله (أبو أحمد) هذه محاولة مني في الوصول للمطلوب ولكن من خلال درجات السلم أتمنى أن تكون هي المطلوب mas_(3).rar
×
×
  • اضف...

Important Information

  I accept