اذهب الي المحتوي
أوفيسنا

Moosak

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

  • Posts

    2300

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

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

  • Days Won

    57

 نوع المحتوي 

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

  1. Moosak
    وعليكم السلام ورحمة الله وبركاته .. 🙂 هذا كود API وظيفته نقل التركيز من نافذة الأكسس إلى برنامج آخر أو إعادة التركيز إلى نافذة الأكسس مجدد : #If VBA7 Then Public Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As LongPtr) As LongPtr #Else Public Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long #End If الدالة تحتاج إلى المعامل التالي hwnd للبرنامج الذي تريد التركيز عليه سواء كان الأكسس أو برنامج آخر ( بعدما تكون قد فتحته كـ Object ) .. وطريقة استدعائه كالتالي : SetForegroundWindow oWMP.hwnd 'windows media player SetForegroundWindow Application.hwnd 'Access
  2. Moosak
    وعليكم السلام ورحمة الله وبركاته أخي عمر .. 🙂 أعتقد أن عليك كتابة هذه بالطريقة التالية : [Forms]![frmAddPatyCash]![SubfrmPatyCash].[Form]![txtInvDate] وذلك في حال الإشارة لعنصر موجود في النموذج الفرعي .. invDateCh = DLookup("[InvDate]", "[TblBPCash]", "[InvDate] =#" & [Forms]![frmAddPatyCash]![SubfrmPatyCash].[Form]![txtInvDate] & "# And [InvNo] ='" & [Forms]![frmAddPatyCash]![SubfrmPatyCash].[Form]![txtInvNo] & "' ")
  3. Moosak
    الحل الأسهل أن تضيف إلى اسم الملف التاريخ والوقت لتتجنب تكرار الاسم 🙂 بحيث يكون اسم الملف هكذا مثلا : FileName = "c:\ReportsFolder\Report-" & Format(Now,"dd-mm-yyyy hh-nn-ss" & ".pdf"
  4. Moosak
    هذا الملف يعمل لدي بشكل جيد .. 🙂
  5. Moosak
    وهذه دالة أخرى في حال لم تعمل معك الطريقة السابقة الدالة توضع في موديول وتظيف المكتبة التالية :Microsoft Scripting Runtime Public Function DleteFolder(FolderPath As String) Dim fs Set fs = CreateObject("Scripting.FileSystemObject") fs.DeleteFolder FolderPath, True Set fs = Nothing End Function ثم تستخدمها بنفس الطريقة السابقة مع تعديم اسم الدالة : Dim txtPath as String txtPath = "D:\System\PDF\" & me.id DleteFolder txtPath
  6. Moosak
    تفضل أخي العزيز : 🙂 Dim txtPath as String txtPath = "D:\System\PDF\" & me.id Kill txtPath
  7. Moosak
    أهلا بك أخي @UserUser2 🙂 ضع هذه الدالة في موديول : Public Function IsFileExists(txtPath As String) As Boolean ' To check whether a given file or folder exists or not If Len(Dir(txtPath, vbDirectory)) = 0 Then IsFileExists = False Else IsFileExists = True End If End Function بعدها في النموذج أو مكان كتابة الكود للتحقق من وجود الملف أكتبها هكذا : Dim txtPath as String txtPath = "D:\System\PDF\" & me.id If IsFileExists(txtPath) = True Then 'الأمر الذي تريد فعله إذا كان المجلد موجود Else 'الأمر الذي تريد فعله إذا لم يكن المجلد موجود End IF
  8. Moosak
    أخي العزيز @محمد احمد لطفى أعتذر منك عن عمل التعديل المطلوب لارتباطي بعدة مشاريع أخرى 🙂 وأترك المجال للإخوة الأعزاء لنرى إبداعاتهم 😅✌🏼️
  9. Moosak
    أحسنت أخي محمد 👍🏼🌷
  10. Moosak
    أخي أبو فتحي لم يقبل البرنامج التحويل للنسخة 2003 لهذه الأسباب : أقترح عليك الإنتقال لنسخة أحدث 🙂
  11. Moosak
    شكرا لمروركم جميعا أساتذتنا ومعلمينا الأفاضل .. 😊 غمرتمونا بكرم دعواتكم وثنائكم تقبل الله منا ومنكم 🌷 شكرا لكم فردا فردا 🙂🌹 أخي محمد أحسنت وأحسن الله إليك .. 🙂🌷 كم وضعت قيمة الـ Sleep ؟
  12. Moosak
    أخي محمد هناك أفكار كثيرة يمكن تطبيقها بسهولة وتختلف حسب الحاجة إليها… وعلى سبيل المثال : ـ نفس الرسالة بس يتغير الاسم كل مرة .. ومرفق واحد ـ رسالة مختلفة لكل شخص .. ومرفق خاص لكل واحد منهم.. ـ وأمثلة كثيرة لا حصر لها… 😁 طبعا يمكن عمل كل ذلك بإجراء تعديلات بسيطة على نفس الكود والجدول..
  13. Moosak
    ﴿كُلُّ مَن عَلَيها فانٍ۝وَيَبقى وَجهُ رَبِّكَ ذُو الجَلالِ وَالإِكرامِ﴾ [الرحمن: ٢٦-٢٧]
  14. Moosak
    أنا شغلته على ويندوز 10 وأوفيس 365 وأوفيس 2010 ربما تكون إعدادات أمان أو برنامج فيروسات أو إعدادات الأمان (المواقع الموثوقة) لديك في الأوفيس ..
  15. Moosak
    شكرازجزيلا لكم جميعا على كلماتكم الطيبة ودعواتكم المباركة 😊🌹 إن شاء الله 👍🏼 أخي qathi لم يظهر لدي أي مشكلة مما ذكرت .. وكل شي كان يعمل بسلاسة تامة .. لابد أن هناك خلل في إعدادات الجهاز عندك أو إعدادات الأكسس نفسه 🙂 وياليت لو نسمع آراء الإخوة ممن جربوا البرنامج .. 🌹
  16. Moosak
    :: السلام عليكم ورحمة الله وبركاته :: 🙂 يطيب لي أن أهديكم هذه الهدية البسيطة 🎁 :: مرسال الواتسأب :: وهو برنامج بسيط جدا لإرسال الرسائل عن طريق الواتسأب .. مع إمكانية إرسال المرفقات كذلك ( صور أو مستندات ) 🙂 وله واجهتين رئيسيتين : 1 - الرسائل الفردية 2 - الرسائل الموجهة لعدة أشخاص :: وهذه صور لواجهات البرنامج :: طبعا من الضروري تنصيب برنامج الواتسأب للكمبيوتر وتشغيله قبل تشغيل البرنامج 🙂 وبملاحظاتكم ودعواتكم دوما نرتقي 🙂 :: وأخيرا :: التحميل :: ☺️👌🏼 مرسال الواتسأب.accdb
  17. Moosak
    وعليكم السلام ورحمة الله وبركاته 🙂 هل تقصد كتابة ( لا يساوي ) ؟ في ال VBA تكتب هكذا: لا يساوي <> أكبر من أو يساوي =< أصغر من أو يساوي =>
  18. Moosak
    أنا تظهر معي هكذا ( أوفيس 365 ) : 🙂
  19. Moosak
    وعليكم السلام 🙂 ضع نموذج فرعي فارغ يملأ المساحة السفلى ثم عند الاختيار من القوائم إجعل مصدر بيانات النموذج الفرعي النموذج الذي تريده أن يفتح لك ..
  20. Moosak
    وعليك سلام الله 🙂✋🏻 حسب ما تذكر الرسالة أن المشكة في الأمر الذي وضعته في حدث (عند التركيز) لمربع النص .. عد للكود الذي وضعته وتتبع المشكلة أو الخطأ الذي فيه.
  21. Moosak
    وعليكم السلام ورحمة الله وبركاته 🙂 بدل القائمة المتعددة أيش رايك لو تعمل 3 حقول من نوع (صح/خطأ) للمقاسات الثلاثة وبهذا بيسهل عليك التعامل معها ..؟ إلا إذا كان عدد المقاسات يزيد وينقص ..
  22. Moosak
    ننتظرك بلهفة 👍🏼🙂 وحبذا لو تتطرق لموضوع كيفية نقل قاعدة البيانات وتنصيبها على السيرفر في جهاز العميل أو المستخدم والاتصال بها .. وكذلك قضية كيفية التعامل مع المرفقات والملفات التي يتم تخزينها في نفس مجلد قاعدة البيانات .. كيف يتم تحديد المسار وكيف يتم نسخ الملفات الى مسار القاعدة ؟ وهل هناك طريقة لتخزين الملفات داخل قاعدة ال SQL ؟
  23. Moosak
    الآن انتبهت أنه نفس المرفق 😅
  24. Moosak
    وجدت هذا الملف في أحد المنتديات الأجنبية .. 🙂 وهي حيلة لعمل ذلك .. TabRight.accdb
  25. Moosak
    وعليكم السلام أخي أزهر 🙂 هكذا مثلا : IIF([bookavailable]-[bookback]<>0 ;[bookavailable]-[bookback];[bookavailable])
×
×
  • اضف...

Important Information

  I accept