بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
2,034 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
51
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Moosak
-
إذا كنت ستعتمد على عد المسافات بين الأسماء .. فيمكنك استخدام الدالة التالية لعد المسافات الفاصلة بين الأسماء بغض النظر عن الأسماء ذوات الضروف الخاصة كالأسماء المركبة وغيرها .. 1- أضف حقل محسوب في الاستعلام وهذه قيمته ( تستبدل Text باسم حقل الأسم ) : Len(Text) - Len(Replace(Text; " "; "")) 2- في المعيار أسفل هذا الحقل تكتب الرقم 3 وذلك ليحضر لك الأسماء الرباعية .. أو تكتب الرقم 2 ليحضر لك الأسماء الثلاثية
-
هدية مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁
Moosak replied to Moosak's topic in قسم الأكسيس Access
هذه المشكلة تحصل بسبب اختلاف نسخ الأوفيس بين الأجهزة .. الحل : إفتح ملف أكسس جديد فاضي .. ثم صدر جميع عناصر البرنامج لملف الأكسس الجديد .. وستعمل معك بإذن الله 🙂 -
بسم الله ما شاء الله .. تبارك الرحمن 😄🖐🏼️ شغل معلمين بجد .. 😊 الله يبارك لك في عمرك وعلمك وصحتك وذريتك 🤲🏻 أنا كنت عارف أن قلبك مش هيسيبك تدينا الكود وتمشي 😅 اشتغلت معايه زي السكينة على الحلاوة ما شاء الله .. 👍🏼 أيش رايك لو تضيف زر إيقاف مؤقت ⏸ للمجموعة وتكتمل النعمة ؟ والمكتبة بتسلم عليك 😂
-
هذا السطر يتحكم بخاصية ضغط وإصلاح قاعدة البيانات عند الإغلاق .. وشخصيا أرى أن بقائه مفعلا True في جميع الأحوال هو أمر جيد 🙂 لذلك وضعته True في الحالتين
-
وعليكم السلام ورحمة الله وبركاته.. ماذا تقصد ب هو المتاح ؟؟ وضح السؤال أكثر تكرما
-
وعليكم السلام ورحمة الله وبركاته .. وممكن تستفيد من إبداعات المهندس @ابو جودي 🙂
-
شكرا للتذكير عمنا @شايب 🙂🌷
-
لو يمكن سحب الأكواد في ملف VBS يكون أفضل .. ولكن المشكلة أننا سندخل في معمعة مع مكافحات الفيروسات 😅🖐 وربما يكون لديك فكرة أفضل ..
-
You may put it under on click command for a button.
-
كيف لو أردنا إضافة الإصدارات الأحدث للقائمة ؟ لأن الملف exe 🙂
-
تصميم جميل وألوان هادئة 🙂
-
ما الذي يفعله هذا الملف بالضبط عمي أبوخليل ؟ وهل تشغله يدويا أم بأمر برمجي ؟ وهل يشترط أن يكون بجانب قاعدة البيانات أثناء التشغيل ؟ 🙂
-
Me.Refresh 🙂
-
تحويل الاستعلام الى جملة SQL واستعمالها في الكود (معدل)
Moosak replied to walid7799's topic in قسم الأكسيس Access
استخدم مصمم الاستعلامات الخاص بالأكسس للحصول على جمل ال SQL .. صمم الاستعلام ثم إذهب إلى للحصول على جملة ال SQL سهل ومريح .. 🙂 -
ظهور رسالة تحذيرية عند فتح ملفات الاكسس
Moosak replied to Luqman Khooshnaw's topic in قسم الأكسيس Access
-
أخي @Alien غيرت لك الفكرة وعملتها بالكود 🙂 جرب الآن وضع أي رقم تشاء .. إن شاء الله مليون رقم حتشتغل معاك 🙂 : بس لما تكون أرقام كثيرة بتاخذ وقت شوية لحد ما يفتح التقرير معاك 😅 Patient Sample Tracking.accdb
-
وعليك السلام ورحمة الله لو فتحت الجدول في حقل Numbers ستجد قائمة بالأرقام .. العدد الأكبر 3000 طبعا عملت التسلسل بالأكسل ثم نسختها للأكسس .. يمكنك زيادتها كما تشاء .. أضف الحد الذي تريده
-
هدية مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁
Moosak replied to Moosak's topic in قسم الأكسيس Access
أستاذي ومعلمنا العزيز @ابوخليل .. وأنا يشرفني كثيرا أنك أول الحضور والمعلقين 🙂 🌹 عمت الفرحة وزاد الهنا ☺️ أجاب الله دعواتك .. وعمت بركاتك .. ونفعنا الله بك .. وحفك التوفيق والتسديد 🤲🏻 -
السلام عليكم ورحمة الله وبركاته يسرني اليوم أن أقدم لكم هذه الهدية المتميزة والرائعة (مكتبة الأكواد الخاصة) :: الإصدار الثالث :: مكتبة عامرة بمئات الأكواد VBA داعمة للمبرمجين وجزء لا يتجزأ من عملهم. تختصر الوقت وتسهل العمل على مصممي البرامج. وهي مكتبة عامة يمكن استخدامها لأي لغات برمجية أخرى . من مميزات المكتبة : - أكثر من 360 كود ودالة في مختلف الفنون والمجالات . - قابلة لحفظ مرفقات مع الكود لدعم التطبيق. - يمكنك إضافة أكوادك الخاصة لتكون مكتبة داعمة لكل مبرمج. - سهلة الاستخدام . تحميل المكتبة : مكتبة الأكواد الخاصة zip.zip ولا تنسوني من صالح دعواتكم 🙂🌹
-
أدخل في الماكرو الموجود على الزر وغير طريقة عرض التقرير إلى > طباعة .. بدل معاينة الطباعة
-
-
أو يمكنك استخدام هذه الأكواد البديلة : 3 دوال لـ ( نسخ - لصق - تفريغ الذاكرة ) شرح الكود: ضع الكود كاملا في موديول ثم استخدمه في البرنامج كما هو واضح في الأسفل .. الكود: '==================================================(Copy) Public Function CopyText(ByVal Text As Variant) As Boolean CopyText = CreateObject("htmlfile").ParentWindow.ClipboardData.SetData("Text", Text) End Function '==================================================(Paste) Public Function PasteText() As String On Error Resume Next PasteText = CreateObject("htmlfile").ParentWindow.ClipboardData.getData("Text") End Function '==================================================(Clear The ClipBoard) Public Function ClearClipBoardText() As Boolean ClearClipBoardText = CreateObject("htmlfile").ParentWindow.ClipboardData.clearData("Text") End Function طريقة الاستدعاء (الاستخدام): CopyText(Text) <------ للنسخ PasteText() <------ للصق ClearClipBoardText() <------ تفريغ الذاكرة
-
عمي قاسم .. ممكن تغير مكان الحفظ الإفتراضي إلى المجلد اللي تريده .. ( اتبع الخطوات : ) 🙂 ( الخطوة رقم 4 لعمل مجلد جديد للبرنامج بدل ما تحفظه على ال C مباشرة )
-
جربت التحميل هذه المرة ولم أواجه أي مشكلة ولله الحمد 🙂 ولكن كما أخبرتك سابقا .. الحساب التجريبي ممنوع من عمل أي شيء .. فقط فتح البرنامج وإغلاقه عندي سؤال : ما هو البرنامج الذي تستخدمه لعمل التنصيب ؟