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

Lamyaa

02 الأعضاء
  • Posts

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

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

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

  1. رائع جدا ولكن حين اختيار المصدر استعلام فإنه فقط يخرج عناوين الأعمدة (في ملف الإكسل) بأسماء الحقول فقط ولا يظهرها بالعناوين هل يمكن تعديل ذلك؟
  2. جميل جدا أستاذ جعفر .. اتستفدت كثيرا حفظكم الله ورعاكم
  3. الأستاذ أبا خليل أنا أتابع فقط .. وأود تقديم شكري لك على جهودك وسعة صدرك حفظك الله وأبقاك في خير
  4. يمكنك استخدام الأمر التالي قبل تنفيذ الاستعلامات DoCmd.SetWarnings False وإن أرد بعد الانتهاء من الاستعلامات إعداته قم بتنفيذ الأمر التالي: DoCmd.SetWarnings True
  5. بطريقتك يمكن لأي شخص أن يحصل على النسخة المفتوحة الكاملة من البرنامج .. وهذا سوء تدبير إذا كنت مبرمجا وستبيع برنامجك فمن الطبيعي أن تتحمل إنشاء نسختين من برنامجك أنت تسأل (ليه كل ده) .. وأجيبك حتى لا يضيع جهدك ويسرقه ضعاف النفس. ثم هذا ليس وجع رأس من حق من سيشتري برنامج أن يحصل على برنامج يعمل بشكل صحيح ومن دون مشاكل أي أنك ليس فقط عملت (كومبايل) وإنما اختبرت كل صغيرة وكبيرة على النواتين. هذا رأيي ولك ما تشاء
  6. السلام عليكم ورحمة الله وبركاته أعتقد أن من الأنسب أن يقوم المبرمج بعمل نسختين من البرنامج لكلتا النواتين ويتم تزويد المستخدم النهائي بالنسخة المناسبة
  7. ألف مبروك يا أبا جودي تستاهل كل خير وفقك الله واعانك
  8. هذه الطريقة تعمل إلى الآن ولا علاقة لها بالويندوز جهازي ويندوز 10 وتعمل عليه
  9. في الأكسس من قائمة ملف أنزل في الأسفل إلى خيارات ومن ثم انتقل إلى تبويب قاعدة البيانات الحالية وقم بتحديد مسار الأيقونة أو يمكنك عمل ذلك من خلال الأكواد باستخدام VBA
  10. جزيل الشكر والامتنان لـ @د.كاف يار وللأساتذة الكرام الذين يهبوننا من وقتهم ومعرفتهم الشيء الكثير أنتم مصداق لقوله علية الصلاة والسلام (خير الناس أنفعهم للناس) قضى الله حوائجكم وفي ميزان حسناتكم
  11. أقترح أن يتم فتح الرابط https://wa.me/" & txtNumbers داخليا في البرنامج باستخدام أداة Webbrowser
  12. أنت تحتاج إلى أداة ActiveX يمكنك استخدام هذه الأداة: https://www.google.com/search?q=Comm32+Serial+Communications+OCX+9.0.0.1&safe=strict&sxsrf=ALeKk02MACSIXUc-A60uRWXsGyrY-SNEbA%3A1617557853779&source=hp&ei=XflpYNWRLYaflwTs-bqAAg&iflsig=AINFCbYAAAAAYGoHbeM64-CnxfuQ8vcJRlKIXBhqSTqD&oq=Comm32+Serial+Communications+OCX+9.0.0.1&gs_lcp=Cgdnd3Mtd2l6EANQqAJYqAJg9gVoAHAAeACAAQCIAQCSAQCYAQCgAQKgAQGqAQdnd3Mtd2l6&sclient=gws-wiz&ved=0ahUKEwiVtJrKkOXvAhWGz4UKHey8DiAQ4dUDCAY&uact=5
  13. أعتقد أن الجهة ذات الاختصاص هي : الهيئة السعودية للملكية الفكرية https://www.saip.gov.sa/ar/
  14. رفعت موضوعا قديما ذكرنا بأبي هادي تمنياتنا أن يكون بصحة وعافية
  15. إذا كان هناك علاقة بين التقارير فيمكن عملها كتقارير فرعية في في تقرير واحد. وإذا لم يكن فيمكن تصدير كل تقرير على حدة ثم دمج الثلاث تقارير في ملف pdf واحد باستخدام سطر الأوامر وأحد أدوات التعامل مع ملفات pdf مثل: 2PDF https://www.cmd2pdf.com
  16. حسب علمي أن الأجهزة الصينية 99% متشابهة ويمكن في أغلبها إن لم يكن في جميعها تعديل الإعدادات بحث لو تم تسجيل الدخول مرة لا يتم تكرار التسجيل مرة أخرى .. ابحث في الإعدادات
  17. السلام عليكم ورحمة الله وبركاته آمل من الأخوة القائمة على المنتدى تعديل قالب الهدر الخاص بالمنتدى بحيث يتم إضافة تعليمة dir="rtl" إلى وسم <html> حتى يتم تصفح المنتدى بالشكل المناسب من اليمين لليسار ودمتم بخير
  18. وللتعامل مع الكود استخدم: Me.Text0 = DialogColor(Me.Text0) 'لوضع كود اللون في مربع النص Me.Text0.BackColor = Me.Text0 ' لجعل خلفية مربع النص باللون الذي تم تحديده
  19. استخدم هذا الكود وسيعمل معك على الإصدارتين #If VBA7 Then Private Type ChooseColor lStructSize As Long hwndOwner As LongPtr hInstance As LongPtr rgbResult As Long lpCustColors As LongPtr flags As Long lCustData As LongPtr lpfnHook As LongPtr lpTemplateName As String End Type #Else Private Type ChooseColor lStructSize As Long hwndOwner As Long hInstance As Long rgbResult As Long lpCustColors As Long flags As Long lCustData As Long lpfnHook As Long lpTemplateName As String End Type #End If Private Const CC_ANYCOLOR = &H100 'Private Const CC_ENABLEHOOK = &H10 'Private Const CC_ENABLETEMPLATE = &H20 'Private Const CC_ENABLETEMPLATEHANDLE = &H40 Private Const CC_FULLOPEN = &H2 Private Const CC_PREVENTFULLOPEN = &H4 Private Const CC_RGBINIT = &H1 'Private Const CC_SHOWHELP = &H8 'Private Const CC_SOLIDCOLOR = &H80 #If VBA7 Then Private Declare PtrSafe Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As Long #Else Private Declare Function ChooseColor Lib "comdlg32.dll" Alias "ChooseColorA" (pChoosecolor As ChooseColor) As Long #End If Public Function DialogColor(Optional lDefaultColor As Variant) As Long Dim CC As ChooseColor Dim lRetVal As Long Static CustomColors(16) As Long 'Some predefined color, there are 16 slots available for predefined colors 'You don't have to defined any, if you don't want to! CustomColors(0) = RGB(255, 255, 255) 'White CustomColors(1) = RGB(0, 0, 0) 'Black CustomColors(2) = RGB(255, 0, 0) 'Red CustomColors(3) = RGB(0, 255, 0) 'Green CustomColors(4) = RGB(0, 0, 255) 'Blue With CC .lStructSize = LenB(CC) .hwndOwner = Application.hWndAccessApp .flags = CC_ANYCOLOR Or CC_FULLOPEN Or CC_PREVENTFULLOPEN Or CC_RGBINIT If IsNull(lDefaultColor) = False _ And IsMissing(lDefaultColor) = False Then .rgbResult = lDefaultColor 'Set the initial color of the dialog .lpCustColors = VarPtr(CustomColors(0)) End With lRetVal = ChooseColor(CC) If lRetVal = 0 Then 'Cancelled by the user DialogColor = RGB(255, 255, 255) ' White -> 16777215 Else DialogColor = CC.rgbResult End If End Function
  20. إنا لله وإنا إليه راجعون لله ما أخذ وله ما أعطى وكل شيء عنده بأجل مسمى. عظم الله أجركم استاذنا محمد ، وأحسن عزاكم، وغفر له ، وأسكنه فسيح جناته وألهمكم وذيه الصبر والسلوان
×
×
  • اضف...

Important Information