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

Foksh

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    3098

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

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

  • Days Won

    122

 نوع المحتوي 

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

  1. Foksh
    أخي الكريم في أقرب فرصة ، لأني حالياً بعيد عن الكمبيوتر.
  2. Foksh
    في حدث بعد التحديث للحقل to تاريخ نهاية العقد. و سيكون هكذا: Result= Format(DateAdd("d", DateDiff("d", [from], [to])/2, [from]), "yyyy-mm-dd") حيث result هو مربع النص الذي سيكون فيه الناتج ( منتصف المدة )
  3. Foksh
    لأ ، #If VBA7 Then Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) #Else Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) #End If Sub TestSleep() ' انتظار لمدة 1000 مللي ثانية (واحدة ثانية) Sleep 1000 End Sub ضعي هذا الكود في بداية الأكواد ، واعذروني لعدم توافر جهاز كمبيوتر في الوقت الحالي لتطبيق الأكواد على المرفقات 😊
  4. Foksh
    استبدلي بعذا الكود ، Private Sub button1_Click() ' تحديد اللون الأصفر لخلفية الزر Me.button1.BackColor = RGB(255, 255, 0) ' تحديد اللون الأصفر لخلفية الليبل Me.text1.BackColor = RGB(255, 255, 0) ' تحديد نص الليبل ليكون اسم الزر Me.text1.Caption = "button1" ' إعادة تعيين اللون والنص إلى الحالة الافتراضية بعد فترة زمنية قصيرة Me.Repaint DoEvents ' تمكين تنفيذ الأحداث الأخرى Application.Wait Now + TimeValue("0:00:01") ' تأخير لمدة ثانية واحدة Me.button1.BackColor = RGB(255, 255, 255) Me.text1.BackColor = RGB(255, 255, 255) Me.text1.Caption = "النص الافتراضي" End Sub أو راجعي هذه المشاركة لحل هذه المشكلة Sleep😊
  5. Foksh
    اجعل في حدث عند التحديث لحقل ( to - ألى ) أن تكون قيمة مربع النص result في الأكواد التي ارفقتها لك 😊
  6. Foksh
    للعلم فقط ، منتصف المدة حسب تواريخك هو 1/7/2023 وحالياً ليس لدي كمبيوتر ، سأحاول بأقرب وقت ممكن.
  7. Foksh
    Private Sub button1_Click() ' تحديد اللون الأصفر لخلفية الزر Me.button1.BackColor = RGB(255, 255, 0) ' تحديد اللون الأصفر لخلفية الليبل Me.text1.BackColor = RGB(255, 255, 0) ' تحديد نص الليبل ليكون اسم الزر Me.text1.Caption = "button1" ' إعادة تعيين اللون والنص إلى الحالة الافتراضية بعد فترة زمنية قصيرة Me.Repaint Sleep 500 Me.button1.BackColor = RGB(255, 255, 255) Me.text1.BackColor = RGB(255, 255, 255) Me.text1.Caption = "النص الافتراضي" End Sub حيث Button1 = اسم الزر Text1 = اسم الليبل
  8. Foksh
    استخدمة هذا السطر في حدث الزر للإصافة ، كتجربة. INSERT INTO zboon (name, phone) SELECT 'الاسم الجديد', 'رقم الهاتف الجديد' WHERE NOT EXISTS (SELECT 1 FROM zboon WHERE name = 'الاسم الجديد'); حيث :- Zboon = الجدول Name = اسم الحقل الخاص بالاسم phone = اسم الحقل الخاص برقم الهاتف وأكمل باقي التعديل حسب اسماء الحقول في النموذج
  9. Foksh
    Result: Format(DateAdd("d", DateDiff("d", [from], [to])/2, [from]), "yyyy-mm-dd") Result: Format(DateDiff("yyyy", [from], [to]), "yyyy") & " years, " & Format(DateDiff("m", [from], [to]) Mod 12, "0") & " months, " & Format(DateDiff("d", [from], [to]) Mod 30, "0") & " days" Result_Days: Format(DateDiff("d", [from], [to]) Mod 30, "0") Result_Months: Format(DateDiff("m", [from], [to]) Mod 12, "0") Result_Years: Format(DateDiff("yyyy", [from], [to]), "yyyy") طبعا استبدل الحقول result, from ,to بالحقول الخاصة بك
  10. Foksh
    أخي الكريم الواضح من الصورة ، أنه لا يوجد لديك مكتبة Outlook ، لإن المرفق يعتمد عليه ، التي عليها اشارة صح ✅ Microsoft Outlook xx.x Object Library * حيث xx.x رقم الاصدار باختلاف نسخة الأوفيس
  11. Foksh
    أخي الكريم ، يجب ان تكون الصيغة التي تم حفظ المشروع فيها Accde وليس Accdb كما في الصورة احفظ المشروع هكذا Make ACCDE وطبعاً ، لازم تعمل باسوورد على الـ VBA
  12. Foksh
    نقاط مهمة جدا ذكرها أستاذنا @شايب ، وكنت قد فكرت بها أثناء الرد ، ولكني توجهت لطلب الأخ فقط 😊
  13. Foksh
    احفظ المشروع بصيغة Accde ، ولن تتمكن حتى أنت من التعديل على البرنامج ، واترك عندك نسخة بعيداً عن أيدي العابثين في حال قمت بأي تعديل أو تحديث ، وحاول عمل تقسيم لقاعدة البيانات بحيث تكون الجداول منفصلة عن النماذج والاستعلامات ... إلخ.
  14. Foksh
    ما اتضح لي من سياق الطلب ، هو تصدير من اكسيس الى إكسيل ، على العموم بالنسبة لهذه النقطة: ستجد في ملف الآكسيل حتى لو كان فارغاً وليس به اي بيانات ، ستجد ورقة جديدة باسم الجدول في الآكسيس وفيها ستجد البيانات التي تم تصديرها ، إلا إنك تريد العكس وهو الإستيراد 😊
  15. Foksh
    يعني استيراد من ملف اكسيل إلى جدول في آكسيس ، 😅
  16. Foksh
    @ابو جودي الحمد لله على السلامة ، وعودة طيبة بعد الغياب الطويل ، وأسأل الله ان تكون في تمام الصحة والعافية .
  17. Foksh
    اخي الكريم تأكد انه ما عندك مشكلة بالأوفيس ، لإنه تمت تجربته على آكسيس ٢٠١٦ ويعمل بكفاءة ، اخي انت تريد تصدير من آكسيس الى إكسيل ، صح ؟ 🥴
  18. Foksh
    Access Export.accdb
  19. Foksh
    مقصد كلامك أنه عندما تقوم بكتابة مثلاً حرف م أن يكمل لك الاسماء التي تبدأ بحرف الـ م ؟؟
  20. Foksh
    معلومة جميلة من المعلم @Moosak ، جزاك الله خيراً
  21. Foksh
    تفضل أخي الكريم ,, ضع هذا الكود في حدث عند النقر وأعطيني النتيجة Dim dlg As FileDialog Dim fileName As String Set dlg = Application.FileDialog(msoFileDialogFilePicker) dlg.Filters.Add "ملفات Excel", "*.xls; *.xlsx" If dlg.Show = -1 Then fileName = dlg.SelectedItems(1) DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "YourQueryOrTableName", fileName, True MsgBox "تم تصدير البيانات بنجاح إلى: " & fileName, vbInformation Else MsgBox "تم الغاء اختيار الملف.", vbExclamation End If * استبدل YourQueryOrTableName باسم جدولك
  22. Foksh
    تفضل أخي @jo_2010 افتح التقرير DAYS_DOC ، طبعاً التنسيق مسؤوليتك عيادات مريم.accdb أما هذا الشرط فأنا أعتذر وأترك المجال لأصحاب الخبرات ومعلميني الأفاضل .
  23. Foksh
    أخي الكريم ، تأكد من اصدار الملف في المكتبة إن كان لديك Outlook قمت بتثبيت الـ Outlook وفتح الملف بدون ظهور الرسالة ، مع العلم أن أكسيس عندي 2016 / 64 بت * أعتقد أنه يجب إعداد الـ Outlook لهذه الخدمة
  24. Foksh
    أخي الكريم ، تأكد من اصدار الملف في المكتبة إن كان لديك Outlook قمت بتثبيت الـ Outlook وفتح الملف بدون ظهور الرسالة ، مع العلم أن أكسيس عندي 2016 / 64 بت
  25. Foksh
    ما هي نسخة الأوفيس لديك ، 64 أو 32 ؟ حسب الملف ، يجب ان تكون قد قمت بتثبيت Outlook في جهازك ، لإنه مطلوب ملف في مكتبة الـ vba تعتمد عليه
×
×
  • اضف...

Important Information

  I accept