نجوم المشاركات

أخواني وأساتذتي ومعلمينا ( دون استثناء ) أدعوكم لتجربة فكرة جديدة تم تنفيذها من خلال آكسيس ( هذا العملاق الصغير 😅 ) . بحيث أُجري تطويراً على فكرة تدعم المبرمجين والمطورين وتمكنهم من إنشاء نظام تفعيل عن بعد ( Online - سحابي ) ؛ بحيث لا يكون على المستخدم سوى إرسال رقم معرف جهازه فقط للمطور ، وما على المطور إلى تفعيل حسابه حسب المدة ( أنواع الإشتراكات ) التي يقدمها مطور البرنامج . وعليه فإنه في هذه المرحلة ، سأطلب ممن يرغب بالمشاركة ( فضلاً وكرماً منه لا أمراً ) أن يقوم بإرسال صورة لواجهة البرنامج الذي سأرفقه تالياً ، مع رقم معرف جهازه فقط . وسأقوم بدوري بتفعيل البرنامج المؤقت له بأشتراكات متنوعة لتجربة الفكرة . وكفكرة على المطلوب ، سأبدأ بنسخة من جهازي كتجربة لتتوضح لكم آلية المشاركة .. عند فتح القاعدة لأول مرة ، سيتم الإتصال بالسيرفر لتسجيل رقم جهازك ( أول مرة فقط ) . لذا شكراً لانتظارك وصبرك 😇 بعد الإتصال بالسيرفر ، سيتم اعتماد مدة تجريبية = 14 يوم وهذه الصورة المطلوبة منك عزيزي القارئ ثم من زر النسخ ، إنسخ رمز المعرف لجهازك ، وألصقه كاملاً كما في مثالي التالي 🤗 ID-0223222033111131825422051 التفعيل يعتمد على اتصال الجهاز بالإنترنت ، حالنا كحال الشركات التي تعتمد على سيرفر خاص بها بالتفعيل 😎 ، لذا لن تفيدك المحاولة بدون اتصال بالإنترنت . نسخة تعمل على النواة 64 :- Officena 64.zip نسخة تعمل على النواة 32 :- Officena 32.zip

و عليكم السلام ورحمة الله وبركاته تفضل الملف و يمكن اختيار الفصل من القائمة المنسدلة لعمل التصفية لازم نشير أن الملف الأصلي من اعداد الدكتور أحمد البحراوي جديد 5 سلوك (2).xlsm

لو عندك اكسيل حديث 365 مثلا يمكن استعمال الصيغة التالية =TEXTJOIN("",TRUE,القرار!AM24:AM39,القرار!AN24:AN39) و يمكن بالأكواد مع الاصدارات القديمة و ده يلزم وجود ملف عشان نتأكد من النتيجة

Converter 64.zip Converter 32.zip

جرب تنسيق الخلايا هذا: [$-2060000]0

@ابو جودي والبتعله الحوت اشرايك بشعار 😂 1- تنفيذ امر الاستخراج والطباعة صامت من غير صندوق الرسالة اجراء الطباعة وعد الصفحات انتظار فقط 2- كود مبسط ثلاث حقول 'Selected Objecit Print = (1) or PDF = (2) حدد النوع Type_Object = 2 'Name_report اسم التقرير reportName = "report1" 'If PDF Out Path File مسار الاستخراج pdfPath = CurrentProject.Path & "\" & reportName & "_" & Format(Now(), "yyyymmdd_hhnnss") & ".pdf" فقط Private Sub Comando0_Click() '=============================( Msgbox Dim strMsg_Give_Nmae As response Dim Run_Cod1 As Integer Dim MsG1 As String Dim MsG2 As String Dim MsG3 As String Dim iprgrs As Integer Dim PDF_Print_Finction As String Dim path_pdf As String Dim Report_T As String Dim Type_Object As String Dim reportName As String Dim pdfPath As String Dim totalPages As Long 'Selected Objecit Print = (1) or PDF = (2) Type_Object = 2 'Name_report reportName = "report1" 'If PDF Out Path File pdfPath = CurrentProject.Path & "\" & reportName & "_" & Format(Now(), "yyyymmdd_hhnnss") & ".pdf" '=========================================================================================================== '*****************(Only_Code)***************************** ' جلب إجمالي الصفحات للتقرير totalPages = GetReportPageCount(reportName) Me.ProgressBar3.Min = 0 Me.ProgressBar3.Max = totalPages Me.ProgressBar3.Value = 0 If Not ReportExists(reportName) Then MsG2 = "Sand Massage !" MsG1 = "تم الغاء التنفيذ " MsG3 = " لالتقرير غير موجود ولم نتمكن من العثور علية " MyMsgBox (MsG3), (MsG2), (MsG1), msg_Erorr_Job, Btn_Non, Arabic_Center ', True, 2.5 Exit Sub End If Me.Comando0.Caption = "جار التنفيذ..." Me.xc.Caption = "اجمالي الصفحات.." & totalPages For iprgrs = 1 To 6 'totalPages - 1 Me.ProgressBar3 = iprgrs Next If Type_Object = 2 Then Call externallyPDFSilent(reportName, pdfPath) Me.Comando0.Caption = "تصدير التقرير" End If If Type_Object = 1 Then Call externallyPrintSilent(reportName, pdfPath) Me.Comando0.Caption = "طباعة التقرير صامت" End If ' تحديث ProgressBar (هنا تحديث مبدئي، يمكنك توسعتها في حالة التصدير صفحة صفحة) Me.ProgressBar3.Value = totalPages Me.xc.Caption = "جاري المعالجة... 100%" Call externallyPrintSilent(reportName, pdfPath) If Dir(pdfPath) <> "" Then If Type_Object = 2 Then MsG2 = "Sand Massage !" MsG1 = "تم التنفيذ تصدير PDF " MsG3 = " لا يتوفر الان عملية تأمين الالي للبيانات بتاريخ واليوم " MyMsgBox (MsG3), (MsG2), (MsG1), msg_OK, Btn_Non, Arabic_Center ', True, 2.5 End If If Type_Object = 1 Then MsG2 = "Sand Massage !" MsG1 = "تم التنفيذ الطباعة " MsG3 = " لا يتوفر الان عملية تأمين الالي للبيانات بتاريخ واليوم " MyMsgBox (MsG3), (MsG2), (MsG1), msg_OK, Btn_Non, Arabic_Center ', True, 2.5 End If ' MsgBox "تم إنشاء ملف PDF بنجاح:" & vbCrLf & pdfPath & vbCrLf & _ ' "إجمالي الصفحات: " & totalPages, vbInformation End If End Sub تحميل المرفق https://www.mediafire.com/file/wrl147f1wl7uwmk/Silent-Print-with_Out_PDF.rar/file

وهو كذلك تم التفعيل أخي

أخي محيي ،تم تفعيل اشتراكك بنجاح .. جرب الآن الدخول الى البرنامج وانقر زر "تحقق من تفعيل النسخة" وللتأكيد انقر على زر علامة التعجب في اقصى اليسار في الأعلى ، وارسل صورة للنتيجة

ID-0223222033111131825944515

وعليكم السلام ورحمة الله وبركاته .. من الغريب جداً ظهور هذه المشكلة ، ولكنني أعلم بأنها بسبب اختلاف إصدار الأوفيس الذي تم إقفال الملف عليها وهو إصدار 2019 - 32 بت .. كما أرى أيضاً أنك تستعمل إصدار ويندوز 7 على ما أعتقد .. لذا سيتم تعديل النسخة 32 بقفلها على إصدار أوفيس 2010 - 32 بت - نسخة عربية في المشاركة نفسها .

السلام عليكم أخي @Foksh بارك الله فيك على هذه الأداة بعد التجربة على نسخة أوفيس 2016 عربي نسخة 32 عند تشغيل الملف تظهر رسالة موضحة في الصورة 1 وعند الضغط على زر ok يفتح الملف - لكن عند إضافة ملف من أجل تحويله تظهر رسالة أخرى موضحة في الصورة 2

فعلاً .. معظم المارين من هنا قد لا يكون لهم اهتمام بهذا الموضوع ومحتواه ، ولكن على الأقل ترك أثر طيب ولو بسيط ، قد يشجع على الإستمرار .. وللأسف ملاحظتي أن هذا ما يحدث فعلاً في بعض المواضيع 😯

🌷 لقاءات أكسس العرب الافتراضية | 03 | 🌷 موضوع اللقاء : مهارات وفنيات تصميم النماذج واختيار الألوان وتنسيق العناصر رابط اليوتيوب: ★ روابط اللقاء الثالث ★ ○ موقع إلهام : https://www.pinterest.com https://www.freepik.com ○ مواقع اختيار الألوان : https://coolors.co https://colorhunt.co https://www.materialpalette.com https://coolors.co/gradients ○ مواقع الأيقونات : https://icons8.com/icons https://www.flaticon.com https://icon-icons.com/ https://www.iconarchive.com/ https://flaticons.net/free-icons ○ مواقع صور PNG : https://www.cleanpng.com https://www.pngwing.com https://www.seekpng.com ○ مواقع صور خلفيات : https://www.pexels.com https://www.freepik.com/free-photos-vectors/background https://pixabay.com https://www.vecteezy.com/free-photos/background https://stocksnap.io/search/background ○ مواقع الخطوط : https://fonts.google.com https://arbfonts.com خطوط رسومية : https://www.vertex42.com/ExcelTips/unicode-symbols.html https://www.ssec.wisc.edu/~tomw/java/unicode.html ○ مراجع مهمة : https://elshemy.me/content/2025_8/Access_UI_UX_ِGuide.html ★ روابط تهمك ★ ❀ ملفات اللقاءات الافتراضية : ○ https://shorturl.at/mR2T3 ○ اللقاء الأول : https://drive.google.com/drive/folders/1wiMVugVZNzU9eaJ9abX-YfqhhSG6_Ec5 ○ اللقاء الثاني : https://drive.google.com/drive/folders/1EcaTZBp0rhmxhm7c_NKOg6BC-O89DS4W ○ اللقاء الثالث : https://drive.google.com/drive/folders/1VX4an_hg3ZdX-Q9_MlNNPoCzkCN6b98d ○ برمـجيـات - أدوات - إضـافـات : https://drive.google.com/drive/folders/1RtmH-cuk1rpj0zKkUNPbQz681oqKVNo3 ○ مجلد ورش العمل المشتركة : https://drive.google.com/drive/folders/1LL5_hsElZR4zQv62Wt1TxU2_M8Gv1Jja ❀ رابط الانظمام لمجموعة الأكسس جروب (واتسأب) : https://chat.whatsapp.com/HQvOPGrkASM2guvAotHXCw ❀ قناة أكسس العرب (اليوتيوب) : http://www.youtube.com/@ArabAccessGroup ❀ مواضيع اللقاء : المقدمة الإلهام البصري pinterest الإلهام البصري Google اختيار الألوان المناسبة تطبيق الألوان على قاعدة البيانات الأيقونات النصية الأيقونات الأيقونات - برنامج Pichon إضافة الصور المفرغة PNG تصميم الواجهات عن طريق PowerPoint حفظ التصميم من الباوربوينت واستيراده إلى الأكسس تصميم نموذج تسجيل الدخول إضافة التفاعل البصري للعناصر تفاعل بصري بالتنسيق الشرطي التأثيرات البصرية التي تطبق على الأزرار الخطوط في النماذج وتنسيقاتها الأنماط اللونية أنماط الخطوط مشاهدة ممتعة 😊🌷