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

ابوآمنة

الخبراء
  • Content Count

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

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

  • Days Won

    5

ابوآمنة last won the day on مارس 31

ابوآمنة had the most liked content!

السمعه بالموقع

504 Excellent

7 متابعين

عن العضو ابوآمنة

  • الإسم الفعلي
    صالح البريكان
  • تاريخ الميلاد 17 ديس, 1985

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مسؤول تدريب

اخر الزوار

1,747 زياره للملف الشخصي
  1. وكل عام وأنتم بخير وتقبل الله طاعتكم وشكرا لك التهنئة اخي احمد
  2. سررت بردك جداً .🥰 شاكر مرورك المتواضع استاذي أبو آدم فما نحن إلا حسنة من حسنات علمك المبارك . نفع الله بعلمك وعملك .
  3. تفضل ضع الكود <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb" label="MY NEW TAB" visible="true"> <group id="dbGroup" label="’My Group"> <button idMso="Cut" label="Cut" size="large" /> <button idMso="ExportExcel" label="Export For EXC" size="large" insertBeforeMso="Cut" /> <button id="RunMacro" label="Open" size="large" imageMso="ViewsFormView" onAction="OpenForm"/> </group> </tab> </tabs> </ribbon> <!--كود إيقاف جميع أوامر file بداية--> <backstage> <button idMso="FileCloseDatabase" visible="false"/> <button idMso="SaveObjectAs" visible="false"/> <button idMso="FileSaveAsCurrentFileFormat" visible="false"/> <button idMso="FileOpen" visible="false"/> <button idMso="FileSave" visible="false"/> <tab idMso="TabInfo" visible="false"/> <tab idMso="TabRecent" visible="false"/> <tab idMso="TabNew" visible="false"/> <tab idMso="TabPrint" visible="true"/> <tab idMso="TabShare" visible="false"/> <tab idMso="TabHelp" visible="false"/> <button idMso="ApplicationOptionsDialog" visible="false"/> <button idMso="FileExit" visible="false"/> <button id="btnPrintPreviewClose" isDefinitive="true" label="Close Preview" imageMso="PrintPreviewClose" onAction="OnActionClose"/> </backstage> <!--كود إيقاف جميع أوامر file نهاية--> </customUI>
  4. وعليكم السلام شاكر لك أخي محمد نفع الله بكم بالنسبة للاخ @eideid الاستعلام user Table معطوب لانه يعتمد على جدول users قم بحذفه لا يؤثر على عمل البرنامج . وايضا الاستفسار الثاني قم بحذف دالة if بكاملها فلا داعي لها . وشاكر للاخوة تجربتهم . وشكرا لكم.
  5. بعد تجربة الاستماع من خلال الانترنت ممتاز جداً . أما تجربة الاستماع من خلال ملفات منزلة على جهاز الحاسب لم يعمل معي لأول مرة . حتى قمت بالدخول على جدول المسارات tblDataServerQuran كما أشرت في موضوع أعلاه 👆وتغيير موقع الملف يدوياً والحمد لله ويعمل الآن بشكل ممتاز . كما اتمنى أن يكون تغيير الرابط تلقائيا أو من خلال تحديد الملف برمجياً . وشكراً لكم من الأعماق محبك في الله آبوآمنة
  6. شكرا جزيلا أخي وحبيبي أبا جودى هدية قيمة ومميزة وأفكار رائعة ورائدة سلمت يمينك وبارك الله فيك وجعله في ميزان حسناتكم ،،،
  7. وعليكم السلام ورحمة الله وبركاته وشكراً لثناءك و دعاءك ولك بمثله وللمسلمين أجمعين : اللهم آمين بما أني هذه الفترة مشغول بأعمال كثيرة . سوف أبدأ معك في كيفية إضافة العملة في البرنامج أين تريد إضافة أو وضع هذه العملة بعد التحويل ؟ يعني تريد إظهار القيمة بعد التحويل في إجمال الفاتورة ؟ أو مع الصنف ؟ اشرح لي الفكرة التي تريدها .
  8. وعليكم السلام حياك الله للمعلومية أخي الكريم المنتدى مليئ بالامثلة التي تسأل عنها ، وقد أجابك الأستاذ والمعلم جعفر بمزيد من التفصيل والفرق بين اتصال الشبكة الداخلية وشبكة الانترنت . وعلى ذلك تابع هذا الموضوع لعله يفيد في تأسيس الشبكة الداخلية .
  9. مساهمة مع أخي رمهان أضف بعد هذه هذه السطر DoCmd.GoToRecord , , acFirst هذا الكود rs.MoveFirst شاهد المرفق Posters5.zip
  10. يشرفني تعديلك ويسعدني مرورك وإضافة رائعة تشكر عليها استاذي رمهان ويبقى الخيار للاخ فايز أيهما يناسبه .
  11. تفضل أخي فايز بعد التعديل لعله يكون استكمالاً لما تريده Posters4.zip
  12. مساهمة مع أخواتي الخبراء تفضل لعله يكون المطلوب تم إضافة زر البحث بجزء من الكلمة يمكنك أيضا التنقل بين خانت البحث المطابق برز التنقل If IsNull(Me.txtSearch) Then Me.FilterOn = False: Exit Sub Me.Filter = "[StName] like '*" & txtSearch & "*'" Me.FilterOn = True Posters4.zip
×
×
  • اضف...