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

Moosak

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

  • Posts

    2175

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

  • تاريخ اخر زياره

  • Days Won

    55

 نوع المحتوي 

كل منشورات العضو Moosak

  1. Moosak
    طريقة رائعة جدا وإبداعية في نفس الوقت .. لله دركما 😃🌹
  2. Moosak
    حياك الله وبياك مهندس قاسم .. ما فهمته أنا من خلال الشرح وتحديدا الشق الثاني منه .. أنه يريد تحديد الرقم والتاريخ لحل تحويل لذلك أضفتها .. وإن كان لا يريدهما ويريد تركها فارغة يمكن بتعديل بسيط على الكود تركهما فارغان ولن يسجل أي قيمة عند الترحيل .. ولإلغاء شرط الرقم والتاريخ يكون الكود هكذا : Private Sub TarheelBtn_Click() Dim Count As Integer Count = DCount("*", "[التجهيز]") If MsgBox("هل ترغب في ترحيل " & Count & " سجلات ؟", vbExclamation + vbYesNo, "تحذير !") = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "AttachQ", acViewNormal DoCmd.OpenQuery "DeleteQ", acViewNormal DoCmd.SetWarnings True MsgBox "تم الترحيل بنجاح" Else Exit Sub End If End Sub
  3. Moosak
    جربته على أكثر من نسخة وهو يعمل بشكل جيد .. ولعل الإخوة يفيدوننا إن كان الملف يعمل معهم أم لا ؟
  4. Moosak
    تفضل أخي العزيز .. لديك فورم للترحيل تدخل فيه رقم وتاريخ المستند .. ثم ترحل البيانات .. زر الترحيل يشغل لك استعلامين .. الأول إلحاقي .. والثاني حذف ( يحذف البيانات من الجدول) الكود على زر الترحيل : Private Sub TarheelBtn_Click() Dim Count As Integer If IsNull(Me.DocDatetxt) Or IsNull(Me.DocNumtxt) Then MsgBox "يرجى تعبئة البيانات قبل الترحيل": Me.DocNumtxt.SetFocus: Exit Sub Count = DCount("*", "[التجهيز]") If MsgBox("هل ترغب في ترحيل " & Count & " سجلات ؟", vbExclamation + vbYesNo, "تحذير !") = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "AttachQ", acViewNormal DoCmd.OpenQuery "DeleteQ", acViewNormal DoCmd.SetWarnings True MsgBox "تم الترحيل بنجاح" Else Exit Sub End If End Sub الملف بعد التطبيق : استعلام ترحيل البيانات.accdb
  5. Moosak
    جرب هذا الكود أخي عمر : FollowHyperlink "C:\Users\UserName\Desktop\File.pdf" SendKeys "^p" تضع عنوان رابط الملف بين علامتي التنصيص بعد FollowHyperlink
  6. Moosak
    إضافة إلى ملف أخي سامي .. وتطبيق خاصية البحث بأي جزء من القائمة المنسدلة .. ثم إحضار رقم الملف : هنا الأكواد : Private Sub Combo0_AfterUpdate() Me.ReText = Me.Combo0 Me.Combo0.Requery Me.FileNumTxt = Me.Combo0.Column(1) End Sub Private Sub Combo0_Change() Me.ReText = Me.Combo0 End Sub Private Sub SearckBtn_Click() Me.Combo0.SetFocus Me.Combo0.Requery Me.Combo0.Dropdown End Sub Private Sub ShowAllBtn_Click() Me.ReText = "" Me.Combo0.SetFocus Me.Combo0.Requery Me.Combo0.Dropdown End Sub والملف المرفق : kids (1).accdb
  7. Moosak
    تفضل أخي هذي بعض نتائج البحث في المنتدى : والكثير غيرها .. ستجد مربع البحث أعلى يسار الصفحة في الشريط الأزرق لو شئت التعمق 🙂
  8. Moosak
    وعليكم السلام ورحمة الله وبركاته.. 🙂 للأسف ليس لدي فكرة عن ما تريده ..
  9. Moosak
    جرب وضعه عند الفتح في ال Main Form
  10. Moosak
    تم التطبيق على ملفاتك أخي @ahmus في حال الاتصال يفتح لك النموذج الرئيسي على طول . وفي حال عدم الاتصال يظهر لك : لا : يغلق لك البرنامج . نعم: يفتح لك مستعرض الملفات وتختار منه ملف الجداول : ثم بعدها تظهر لك رسالة النجاح ... ويفتح لك النموذج الرئيسي : اثناء انقطاع الشبكة - 3.rar
  11. Moosak
    بالصدفة وأنا أتجول في المنتدى وجدت هذا 🙂
  12. Moosak
    إذا حاط هذا الكود في نفس الفورم اللي موجود فيه الزر اللي هوه [MainForm] مثلا .. أكتبه بهذي الطريقة : Me.Command12.Visible = False
  13. Moosak
    ومشاركة مع أستاذنا أبا جودي ، يمكنك عملها بهذه الطريقة عند فتح الفورم الذي به الزر .. If [Forms]![Login]![IsAdmin] = True Then Me.Botton.Visible = True Else Me.Botton.Visible = False End If ويختلف الأمر باختلاف الطرق التي تم تعيين الصلاحيات بها .
  14. Moosak
    ياسلام ياسلام عليك يا معلم @jjafferr .. حطيت يدك على الجرح 😅😋🍝🍜🍲🍛 حسيت بطعم التشبيه في بطني 😂 فعلا الأدوات موجودة .. والأفكار تتمايز وتختلف .. وكلنا نكمل بعضنا البعض 👍😉
  15. Moosak
    للأسف لا أعرف كيف أحولها لك للـ 2003 .. لعل أحد المختصين يجود علينا بذلك 🙂
  16. Moosak
    المهندس الرائع @jjafferr 😊 ورجل المستحيل @ابو جودي 😁 دائما أجدكما متقدمان في كل شيء 😅 بالفعل اللغة العربية تعتبر إضافة رائعة .. لو أنها تتوفر بدون إنترنت 🙂 لكما جزيل الشكر والتقدير .. 🌷
  17. Moosak
    سعدت بمروركم أساتذتي الأفاضل .. 😊 ومنكم نتعلم 🌷
  18. Moosak
    السلام عليكم ورحمة الله وبركاته درسنا اليوم عبارة عن فكرة فريدة وهي أن تجعل الأكسس يقرأ أي عبارة تريدها ، هذه الميزة تعمل مع النصوص الإنجليزية، وللأسف لا تعمل على النصوص العربية، ولعل هناك طريقة أخرى لا أعلمها فليفدنا من له علم بذلك 🙂 ولا تنسوني من صالح دعواتكم .. ونصائحكم وتوجيهاتكم .. 🙂 ومع ملف الشرح للتطبيق : الأكسس يتكلم.accdb
  19. Moosak
    حول لغة قوائم البرنامج للإنجليزية أخي حافظ .. هي موجودة ولكن أتوقع أنها تظهر لديك باللغة التي تعمل عليها .. 🙂
  20. Moosak
    أعتقد من خلال جواب الأخ نبيل @nabilalibibo أن الحل يكمن في تقسيم قاعدة البيانات كما ذكر الأخ عمر @Amr Ashraf . وهناك الكثير من المواضيع التي تحدثت عن هذا الموضوع يمكن الرجوع إليها ..
  21. Moosak
    حاولت أسويها وحدي ولو بشكل (مشي حالك ) .. لكن الظاهر حتى أنا قهوتي ما ضاربة في المخيخ 😆 خلاصة ما أريد توصيله لك : تحويل الكود إلى دالة . 🙂 شي من جنس هذي مثلا : Public Function DateFromTable(myDate As Date, Taqweem As String, WhatDatePart As String) As Date Select Case WhatDatePart Case Is = "Weekday" DateFromTable = DLookup(Taqweem, "tbl_Months", "[Months_Number]=" & Weekday(myDate)) Case Is = "Month" DateFromTable = DLookup(Taqweem, "tbl_Months", "[Months_Number]=" & Month(myDate)) DateFromTable = Day(myDate) & " " & DateFromTable & " " & Year(myDate) End Select End Function
  22. Moosak
    لله درك من سبّاق 🙂 قصدت لك يا معلمنا الكود الموجود في مشاركتك الأولى .. في حال أردت وضع تاريخ معين على أي حقل أو استعلام مثلا ( طبعا بطريقة الجدول ) .. نريد أن نحضر القيمة من الجدول عن طريق دالة بهذه الصيغة مثلا : 'Function syntax: DateFromTable(MyDate as Date,Taqweem as String, DatePart as String, Format as String) as Date 'Call it like this: DateFromTable(Me.MyDate, "Georgian", "Month", "MMMM") طبعا كل ما تراه هو مقترح لمبتدئ وأنت أدرى بالصواب 😅
  23. Moosak
    أيش رايك مهندس جعفر @jjafferr تحول الكود لدالة بها متغيرات تضاف بعد اسم الدالة يختار منها المستخدم نوع التقويم والفورمات المطلوب للتاريخ ليسهل طلبها .. بدل التعديل على الكود في كل مرة .. 🙂
  24. Moosak
    علميا ممكن إن شاء الله عن طريق الاستعلامات وال VBA ... ولكن لاختبار ذلك عمليا نحتاج انموذج للتطبيق عليه 🙂
  25. Moosak
    اللهم آمين .. وإياكم أخي @ahmus لا تنسى التأشير على أفضل إجابة لتسهل على الآخرين الوصول إليها 🙂
×
×
  • اضف...

Important Information

  I accept