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

وعليكم السلام 🙂 ان شاء الله طريقتي تعجبك 🙂 . . Private Sub VeiwReportBtn_Click() On Error GoTo Err_VeiwReportBtn_Click Dim qry_0 As String, qry_1 As String qry_0 = "Select * From qry_Table2_Empty_One_Record" qry_1 = "Select * From qry_Table2" DoCmd.DeleteObject acQuery, "tqry_SubReport" If DCount("*", "Table2", "T1ID=" & Me.IdCbo) = 0 Then CurrentDb.CreateQueryDef "tqry_SubReport", qry_0 Else CurrentDb.CreateQueryDef "tqry_SubReport", qry_1 End If Dim stDocName As String stDocName = "Report1" DoCmd.OpenReport stDocName, acViewPreview, , "[ID]=" & Me.IdCbo Exit_VeiwReportBtn_Click: Exit Sub Err_VeiwReportBtn_Click: If Err.Number = 7874 Then 'query tqry_SubReport does not exist, ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_VeiwReportBtn_Click End Sub جعفر 1523.ShowReportInNoDate.accdb.zip

السلام عليكم ورحمة الله وبركاته.. اقدم لكم اداة صغيرة من برمجتي وضيفتها تغيير اسم الدولة/المنطقة التي تعتمد عليها الكثير من البرامج خصوصاً العربية التي تعتمد الـ Unicode الأداة مكتوب بلغة Visual Studio .NET مبدأ عملها يحتاج ان تقوم بتمرير براميتر لها يحتوي على كود الدولة. عموما كتبت لكم مثال في الاكسس سورس الأداة: Imports System.Runtime.InteropServices Imports System.Threading Imports Microsoft.Win32 Imports System.Globalization Module Main 'C0ded bY: SEMO.Pa3x (: 'Date: 27-5-2021 : 03:26 PM Const subkey As String = "SYSTEM\CurrentControlSet\Control\Nls\Language\" Dim CodeArray As String() = {"af-ZA", "ar-AE", "ar-BH", "ar-DZ", "ar-EG", "ar-IQ", "ar-JO", "ar-KW", "ar-LB", "ar-LY", "ar-MA", "ar-OM", "ar-QA", "ar-SA", "ar-SY", "ar-TN", "ar-YE", "az-AZ", "az-AZ", "be-BY", "bg-BG", "bs-BA", "ca-ES", "cs-CZ", "cy-GB", "da-DK", "de-AT", "de-CH", "de-DE", "de-LI", "de-LU", "dv-MV", "el-GR", "en-AU", "en-BZ", "en-CA", "en-CB", "en-GB", "en-IE", "en-JM", "en-NZ", "en-PH", "en-TT", "en-US", "en-ZA", "en-ZW", "es-AR", "es-BO", "es-CL", "es-CO", "es-CR", "es-DO", "es-EC", "es-ES", "es-ES", "es-GT", "es-HN", "es-MX", "es-NI", "es-PA", "es-PE", "es-PR", "es-PY", "es-SV", "es-UY", "es-VE", "et-EE", "eu-ES", "fa-IR", "fi-FI", "fo-FO", "fr-BE", "fr-CA", "fr-CH", "fr-FR", "fr-LU", "fr-MC", "gl-ES", "gu-IN", "he-IL", "hi-IN", "hr-BA", "hr-HR", "hu-HU", "hy-AM", "id-ID", "is-IS", "it-CH", "it-IT", "ja-JP", "ka-GE", "kk-KZ", "kn-IN", "ko-KR", "kok-IN", "ky-KG", "lt-LT", "lv-LV", "mi-NZ", "mk-MK", "mn-MN", "mr-IN", "ms-BN", "ms-MY", "mt-MT", "nb-NO", "nl-BE", "nl-NL", "nn-NO", "ns-ZA", "pa-IN", "pl-PL", "ps-AR", "pt-BR", "pt-PT", "qu-BO", "qu-EC", "qu-PE", "ro-RO", "ru-RU", "sa-IN", "se-FI", "se-FI", "se-FI", "se-NO", "se-NO", "se-NO", "se-SE", "se-SE", "se-SE", "sk-SK", "sl-SI", "sq-AL", "sr-BA", "sr-BA", "sr-SP", "sr-SP", "sv-FI", "sv-SE", "sw-KE", "syr-SY", "ta-IN", "te-IN", "th-TH", "tl-PH", "tn-ZA", "tr-TR", "tt-RU", "uk-UA", "ur-PK", "uz-UZ", "uz-UZ", "vi-VN", "xh-ZA", "zh-CN", "zh-HK", "zh-MO", "zh-SG", "zh-TW", "zu-ZA"} Sub main() For Each arg As String In My.Application.CommandLineArgs 'check if arg exist in array ! Dim index As Integer = Array.IndexOf(CodeArray, arg) If index > 0 Then 'do change (: SetSystemNonUnicodeLanguage(CultureInfo.GetCultureInfo(arg)) End If Next End Sub Private Sub SetSystemNonUnicodeLanguage(ByVal cinfo As CultureInfo) Dim regkey = Registry.LocalMachine.OpenSubKey(subkey, True) regkey.SetValue("Default", cinfo.LCID.ToString("x4")) ' Reboot computer after timeout of 5 Shell("Shutdown -r -t 5") ' Switches: ' -l Log off profile ' -s Shut down computer ' -r Restart computer ' -f Force applications to close ' -t Set a timeout for shutdownCodeArray ' -m \\computer name (Shutdown remote computer) ' -i Show the Shutdown GUI End Sub End Module البرنامج: Option Compare Database Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Const SW_SHOWNORMAL = 1 Private Sub cmd_change_Click() Dim SetLocaleInfo_File As String Dim Parameters As String SetLocaleInfo_File = CurrentProject.Path + "\SetLocaleInfo.exe" Parameters = comb_countries ShellExecute 0, "runas", SetLocaleInfo_File, Parameters, vbNullString, SW_SHOWNORMAL End Sub ارفقت لكم جدول لإسماء الدولة ورموزها: Code Country af-ZA Afrikaans (South Africa) ar-AE Arabic (U.A.E.) ar-BH Arabic (Bahrain) ar-DZ Arabic (Algeria) ar-EG Arabic (Egypt) ar-IQ Arabic (Iraq) ar-JO Arabic (Jordan) ar-KW Arabic (Kuwait) ar-LB Arabic (Lebanon) ar-LY Arabic (Libya) ar-MA Arabic (Morocco) ar-OM Arabic (Oman) ar-QA Arabic (Qatar) ar-SA Arabic (Saudi Arabia) ar-SY Arabic (Syria) ar-TN Arabic (Tunisia) ar-YE Arabic (Yemen) az-AZ Azeri (Latin) (Azerbaijan) az-AZ Azeri (Cyrillic) (Azerbaijan) be-BY Belarusian (Belarus) bg-BG Bulgarian (Bulgaria) bs-BA Bosnian (Bosnia and Herzegovina) ca-ES Catalan (Spain) cs-CZ Czech (Czech Republic) cy-GB Welsh (United Kingdom) da-DK Danish (Denmark) de-AT German (Austria) de-CH German (Switzerland) de-DE German (Germany) de-LI German (Liechtenstein) de-LU German (Luxembourg) dv-MV Divehi (Maldives) el-GR Greek (Greece) en-AU English (Australia) en-BZ English (Belize) en-CA English (Canada) en-CB English (Caribbean) en-GB English (United Kingdom) en-IE English (Ireland) en-JM English (Jamaica) en-NZ English (New Zealand) en-PH English (Republic of the Philippines) en-TT English (Trinidad and Tobago) en-US English (United States) en-ZA English (South Africa) en-ZW English (Zimbabwe) es-AR Spanish (Argentina) es-BO Spanish (Bolivia) es-CL Spanish (Chile) es-CO Spanish (Colombia) es-CR Spanish (Costa Rica) es-DO Spanish (Dominican Republic) es-EC Spanish (Ecuador) es-ES Spanish (Castilian) es-ES Spanish (Spain) es-GT Spanish (Guatemala) es-HN Spanish (Honduras) es-MX Spanish (Mexico) es-NI Spanish (Nicaragua) es-PA Spanish (Panama) es-PE Spanish (Peru) es-PR Spanish (Puerto Rico) es-PY Spanish (Paraguay) es-SV Spanish (El Salvador) es-UY Spanish (Uruguay) es-VE Spanish (Venezuela) et-EE Estonian (Estonia) eu-ES Basque (Spain) fa-IR Farsi (Iran) fi-FI Finnish (Finland) fo-FO Faroese (Faroe Islands) fr-BE French (Belgium) fr-CA French (Canada) fr-CH French (Switzerland) fr-FR French (France) fr-LU French (Luxembourg) fr-MC French (Principality of Monaco) gl-ES Galician (Spain) gu-IN Gujarati (India) he-IL Hebrew (Israel) hi-IN Hindi (India) hr-BA Croatian (Bosnia and Herzegovina) hr-HR Croatian (Croatia) hu-HU Hungarian (Hungary) hy-AM Armenian (Armenia) id-ID Indonesian (Indonesia) is-IS Icelandic (Iceland) it-CH Italian (Switzerland) it-IT Italian (Italy) ja-JP Japanese (Japan) ka-GE Georgian (Georgia) kk-KZ Kazakh (Kazakhstan) kn-IN Kannada (India) ko-KR Korean (Korea) kok-IN Konkani (India) ky-KG Kyrgyz (Kyrgyzstan) lt-LT Lithuanian (Lithuania) lv-LV Latvian (Latvia) mi-NZ Maori (New Zealand) mk-MK FYRO Macedonian (Former Yugoslav Republic of Macedonia) mn-MN Mongolian (Mongolia) mr-IN Marathi (India) ms-BN Malay (Brunei Darussalam) ms-MY Malay (Malaysia) mt-MT Maltese (Malta) nb-NO Norwegian (Bokm?l) (Norway) nl-BE Dutch (Belgium) nl-NL Dutch (Netherlands) nn-NO Norwegian (Nynorsk) (Norway) ns-ZA Northern Sotho (South Africa) pa-IN Punjabi (India) pl-PL Polish (Poland) ps-AR Pashto (Afghanistan) pt-BR Portuguese (Brazil) pt-PT Portuguese (Portugal) qu-BO Quechua (Bolivia) qu-EC Quechua (Ecuador) qu-PE Quechua (Peru) ro-RO Romanian (Romania) ru-RU Russian (Russia) sa-IN Sanskrit (India) se-FI Sami (Northern) (Finland) se-FI Sami (Skolt) (Finland) se-FI Sami (Inari) (Finland) se-NO Sami (Northern) (Norway) se-NO Sami (Lule) (Norway) se-NO Sami (Southern) (Norway) se-SE Sami (Northern) (Sweden) se-SE Sami (Lule) (Sweden) se-SE Sami (Southern) (Sweden) sk-SK Slovak (Slovakia) sl-SI Slovenian (Slovenia) sq-AL Albanian (Albania) sr-BA Serbian (Latin) (Bosnia and Herzegovina) sr-BA Serbian (Cyrillic) (Bosnia and Herzegovina) sr-SP Serbian (Latin) (Serbia and Montenegro) sr-SP Serbian (Cyrillic) (Serbia and Montenegro) sv-FI Swedish (Finland) sv-SE Swedish (Sweden) sw-KE Swahili (Kenya) syr-SY Syriac (Syria) ta-IN Tamil (India) te-IN Telugu (India) th-TH Thai (Thailand) tl-PH Tagalog (Philippines) tn-ZA Tswana (South Africa) tr-TR Turkish (Turkey) tt-RU Tatar (Russia) uk-UA Ukrainian (Ukraine) ur-PK Urdu (Islamic Republic of Pakistan) uz-UZ Uzbek (Latin) (Uzbekistan) uz-UZ Uzbek (Cyrillic) (Uzbekistan) vi-VN Vietnamese (Viet Nam) xh-ZA Xhosa (South Africa) zh-CN Chinese (S) zh-HK Chinese (Hong Kong) zh-MO Chinese (Macau) zh-SG Chinese (Singapore) zh-TW Chinese (T) zu-ZA Zulu (South Africa) مدة العمل ( ساعة ونصف ) SetLocaleInfo.rar

وكذلك كود اخوي موسى بطريقتي : If Len(Me.nox & "") = 0 Then Exit Sub جعفر

حياك الله أخي حامل المسك 🙂 ضع هذا السطر في أول الكود .. If IsNull(Me.nox) Or Me.nox = "" Then Exit Sub

كلمة شكر وعرفان لك مهنسنا العزيز @SEMO.Pa3x 🙂 هذي الأداة مريحة جدا ماشاء الله .. تخف علينا نصف العناء أثناء التنصيب وخصوصا للأجهزة البعيدة فقط أنا قمت بتعديل بسيط في الكود لتعمل على النظامين 32 و 64 بت .. 🙂 وأتمنى لو يكون فيه طريقة أيضا لإضافة تعيين التنسيق الإقليمي مرة وحدة ( كتعديل على الأداة ) وبالمرة أتمنى لو يكون فيه طريقة لعمل كل هذا عن طريق الأكسس بدون أدوات خارجية مساعدة 🙂 الكود المعدل : #If VBA7 Then Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long #Else Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long #End If Const SW_SHOWNORMAL = 1 Private Sub cmd_change_Click() If IsNull(comb_countries) Then Exit Sub Dim SetLocaleInfo_File As String Dim Parameters As String SetLocaleInfo_File = CurrentProject.Path + "\SetLocaleInfo.exe" Parameters = comb_countries ShellExecute 0, "runas", SetLocaleInfo_File, Parameters, vbNullString, SW_SHOWNORMAL End Sub والمرفق بعد التعديل : SetLocaleInfo.rar

وعليكم السلام -تفضل بهذه المعادلة سحباً لليسار ثم الى الأسفل =COUNTIFS(data!C$2:C$1000,"<>"&"",data!$A$2:$A$1000,$B4,data!$B$2:$B$1000,1) trasnport1.xlsx

إضافة متميزة ورائعة كتميزكم المعتاد.. وبهذه الطريقة نعالج مشكلة إضافة سجل جديد،، تمت تجربة الكودين ولم تكن رائعة... بل بل أروووووع أرووووع من الرائعة سلمكم الله وأغناكم وزادكم علما وهدى وتقى وصحة وعافية،،

الحمدلله اني افهم شوي في الاكسس 🙂 ارسل له هذه الصورة من البرنامج ، لما اردت فتح وحدة نمطية ، والرسالة بكل وضوح تقول: لا يمكن استيراد، تصدير، عمل، تغيير، او اعدادة تسمية اي نموذج، تقرير او وحدة نمطية في البرنامج الذي بصيغة ACCDE, MDE او ADE . ولما تفك الضغط لملفك المرفق ، ستلاحظ ان البرنامج بصيغة ACCDE . جعفر

(Date + 466581 - 0.53) / (10631 / 30) + 1 Date يمثل التاريخ الميلادي للأكسس والإكسل و الـ vba 466581 هو الرقم التسلسلي لبداية التقويم الميلادي في 18/07/0622 زائدا واحد حتى تكون النتيجة المطلوبة تساوي يوم واحد. طبعا الرقم التسلسلي يساوي 466580- نصفره ونضيف عليه يوم واحد وهو قيمة بداية التقويم الهجري (أول يوم). (10631 / 30) هو طول السنة الهجرية بالأيام وناتجها 354.367 ولكني فضلت استخدم عملية التقسيم حتى أحصل على كسر مفتوح لمزيد من الدقة. 0.53 هو لعملية ضبط adjustment حصلت عليه بعد عدة تجارب/اختبارات وتظهر حاجته غالبا في آخر يوم في السنة وأحيانا في أول يوم أيضا. 1 هو للسنة الناقصة (غير المكتملة)

انا مو راضي عن طريقة البحث في المنتدى ، فالبحث ما يعطيني اللي اريده بسهوله !! 1. فعندي هذه المدونه اللي كتبت فيها بعض المواضيع ، بس مو كامله : . 2. واستعين ببحث جوجل من خارج المنتدى ، هكذا: jjafferr "لا تبدأ اسم الكائن برقم" site:www.officena.net . 3. ذهبت الى منتدى "Invision Community" والذي منتدانا نسخة منه ، ولكن ما حصلت على طريقة غير الموجود عندنا ، 4. في الفترة الاخيرة فكرت في فكرة ، بس ما عندي وقت لتنفيذها وما ادري ممكن عملها او لا ، وهي ان اعمل محرك بحث في الاكسس كالتالي: أ. استعين بأحد برامج web crawlers ، واجعله يزور جميع صفحات منتدى الاكسس ، ب. استخلص من كل صفحة الكلمات الغير متكررة ، واحفظها في الاكسس في حقل ، وفي حقل آخر يكون رابط المشاركة ، ج. واذا ممكن استخلاص الكود (في المشاركات) وحفظه في حقل آخر ، د. عمل نموذج بحث في الكلمات و الكود ، ومن ثم الرجوع الى المنتدى برابط الموضوع ، هـ. حسب كمية البيانات ، فقد نربط اكثر من برنامج (كل جدول في برنامج) ، ونحصل على النتيجة 🙂 ها ، الظاهر اني رحت بعيد 🙂 جعفر

2saad من فضلك استخدم خاصية البحث بالمنتدى قبل رفع المشاركة تجنباً لإهدار وقت الأساتذة فى موضوعات تـــم تناولها ومناقشتها بالمنتدى سابقاً

اخي الكريم هذا موضوع مختلف لا يحتاج الى شخص لديه خبرة كبيرة حتى يصيغ السؤال بشكل جيد . عندما نرى اليوزرفورم لا يوجد زر هذا يعني تريد اظهار البيانات في اليوزرفورم وليس العكس كان عليك اختصار الامر بقول ترحيل البيانات من اليوزرفورم الى الشيت . الى هذا الحد صعب قول ذلك ؟؟؟؟؟ هذه مضيعة للوقت في المرة الاولى طلبت نفس الخلية B4 لكلتا الورقتين والان تغير الخلية . هل علينا ان نقوم بالتخمين ؟؟ قم بانشاء زر تحكم وضع هذا الكود وامسح الكود السابق . هذا الكود لورقة واحدة كما طلبت . Private Sub CommandButton1_Click() Dim sh1 As Worksheet Set sh1 = Sheets("sheet1") sh1.Range("B4").Value = TextBox1.Value sh1.Range("D5").Value = TextBox2.Value End Sub

الملف يعمل جيدا معي لكن جرب هذا التعديل Documents.rar

بناء على طلبك ان لم اسيء الفهم الموضوع ليس بتلك التعقيد ضع هذا في موديول اليوزرفورم ..لا تنسى ان تكون تسمية الاوراق مطابقة كما في الكود Private Sub UserForm_Initialize() Dim sh1, sh2 As Worksheet Set sh1 = Sheets("sheet1") Set sh2 = Sheets("sheet2") TextBox1.Value = sh1.Range("b4").Value TextBox2.Value = sh2.Range("b4").Value End Sub

الحمد لله،، ثم الحمد لله.. المبدعون الكرام.. @jjafferr @Moosak تقف الكلمات حائرة.. أمام جميل تعاونكم البناء وأخوتكم الكريمة.. تلاقت الأرواح بكل جمال ومحبة وصدق وتعاون.. فلكم منا صادق الدعاء فلقد أجدتم ونفعتم وكفيتم ووفيتم.. والحمد لله ضبطت الطريقة.. فشكر الله شكرا عظيما وجزاكم خير الجزاء وبارك لكم فيما رزقكم وجعل ما جدتم به رفعة لكم في الدنيا والآخرة..

طبعا أنا كنت أجرب قبل ما أشوف مشاركة أستاذنا العزيز جعفر 🙂 وهذي محاولتي : طبعا يتم استعراض ملفات ال PDF في المتصفح ( وهذا يتطلب وجود برنامج مشغل PDF ) ويمكن الاستغناء عن العرض الكود يجلب كل الملفات المرتبطة بالرقم المطلوب تلقائيا عند الإنتقال من سجل لآخر في النموذج الفرعي ويجمعها في ليست بوكس .. النقر المزدوج على اسم الملف يفتحه لك خارجيا .. وهذا الكود : Public Sub BringAllFilesAndFolders() Dim path As String, currentPath As String Dim List As ListBox Set List = Forms!tabl1!FileList path = CurrentProject.path & "\Datapdfx\" currentPath = Dir(path, vbDirectory) List.RowSource = "" Do Until currentPath = vbNullString If InStr(currentPath, CStr(Me.noid)) > 0 Then List.AddItem currentPath End If currentPath = Dir() Loop Set List = Nothing End Sub ربط البيانات مع ملف pdf.rar

وعليكم السلام 🙂 تفضل: . وهذا يحدث بهذا الكود: Private Sub Form_Current() Dim rst As DAO.Recordset Dim strFile As String Set rst = Me.tabl2.Form.RecordsetClone rst.MoveFirst Me.lst_Files.RowSource = "" Do Until rst.EOF Debug.Print rst!noid Me.lst_Files.AddItem ">" & rst!noid 'Now lets find how many files we have strFile = Dir(Application.CurrentProject.Path & "\Datapdfx\*" & rst!noid & "*.pdf") Do Until strFile = "" Debug.Print strFile Me.lst_Files.AddItem strFile strFile = Dir() Loop Me.lst_Files.AddItem "" rst.MoveNext Loop End Sub Private Sub lst_Files_DblClick(Cancel As Integer) Dim pdfPath As String If Left(Me.lst_Files, 1) = ">" Then Exit Sub pdfPath = CurrentProject.Path & "\Datapdfx\" & Me.lst_Files Shell "explorer.exe " & pdfPath, vbNormalFocus End Sub جعفر dataPdf.zip

السلام عليكم جميعا ورحمة الله وبركاته .. 🙋‍♂️ سؤالي يتعلق بكيفية أجعل التقرير والتقارير الفرعية له ( تظهر ) مكتملة بتصاميمها خصوصا في حال عدم وجود بيانات .. فكما هو معلوم أن الوضع الافتراضي لبرنامج الأكسس يخفي التقرير ويظهر صفحة بيضاء عندما لا يحتوي التقرير على بيانات .. المطلوب هو : كيف أجعل التقارير الفرعية تظهر بكل تفاصيلها عندما لا توجد بها بيانات ؟ مثال توضيحي : عندما يكون هناك بيانات يظهر هكذا : وعندما لا يكون هناك بيانات يظهر هكذا : المطلوب أن يظهر بهذه الصورة : ShowReportInNoDate.rar

الله يبعد عنك المتدودة 😅 سلمت اناملك…

شكرا جزيلا اخوي ابو احمد 🙂 شرح وافي وواضح 🙂 جعفر

قمت بمراسلة شخص له علاقة بالبرنامج ولكن غير مستعد للتعديل وأفاد ان البرنامج مفتوح المصدر المستخدم ADMIN كلمة المرور 123 من فضلك حاول تعديله

@jjafferr الحين طمعتنا في رؤية الناتج لهذا الطموح والحلم ( عجل الله فرجه ) 😅 الله يوفقك لإنجازه وييسر لك كل الإمكانيات المتاحة لذلك 😊

تم اختبار المعادلة لمدة 9566 سنة هجرية بدون أي إخفاق. ملاحظة: هذه المعادلة تعمل فقط مع الـ vba و الإكسل

البرنامج مجاني وليس من تصميمي ولكن للأسف صاحبه عرضه ولم يحل مشكلة التشغيل على ٦٤ بت وانا ليس لدي خبرة في الأكواد انا مستخدم فقط. الرجاء الافادة حول المطلوب حتى يتم ارفاقه هنا للتعديل عليه من حضراتكم

اخي sayed darwish 🙂 برنامجك بصيغة accde ، فهو مقفل ولا يمكن الدخول في الكود وتعديله. جعفر

وعليكم السلام اخوي موسى 🙂 بس انتبه ، لا توجد علاقة بين التقرير الرئيسي والفرعي ، وانما التقرير الفرعي يأخذ بياناته بعد تتم تصفيتها في الاستعلام ، بالحقل IdCbo 🙂 ما شاء الله ، احنا متعودين منك الابتكارات الحلوة 🙂 وكيف تريد ان اعرف الملف الذي اشتغل عليه من بين الملفات !! هي ملفات بتسلسل ، قد اكون استخدمتها للرد ، ويكون للملف تعديل ثاني وثالث ، وقد استخدم الملف للتجربة بدون ان اضع رد في المنتدى 🙂 وفي الفترة الاخيرة صرت احاول اعمل تغيير في إسم الملف ، حتى اذكر الفائدة منه ، ولكن مو دائما 🙂 وكلما بلغ عندي حوالي 100 ملف ، اعزلهم في مجلد خاص بهم ، واواصل التسلسل 🙂 . جعفر

أعجبتني جدا .. ما شاء الله تبارك الله .. جزاك ربي خيرا وأجرا وحلاوة حبيبنا @jjafferr ☺️🌹 وكذلك فتحت ذهني إلى أفكار حلوة لتطويرها وتطبيقها بأكثر من شكل على التقارير الفارغة .. ومنها على السريع : أضفت في التقرير الفارغ أبو سجل واحد هذي العبارة "لا يوجد بيانات".. فكانت النتيجة 🙂 : هذا على السريع بس .. ولي في الاستعلامات الفارغة تجارب إن شاء الله 🙂 شيء آخر شدني في المرفق اللي حطيته وحابين نستفيد منك : لاحظت في تسمياتك للملفات اللي ترفعها للمنتدى هناك رقم تسلسلي تصاعدي مع الردود والمشاركات .. فأيش السر فيه ؟ وما هي القصة وراء ذلك ؟ 😉 هل عندك قاعدة بيانات بمشاركاتك أو بالمواضيع اللي تتابعها في المنتدى ؟

ليس كل المواقع يمكن جلب البيانات منها . بعض اصحاب المواقع يضع حظر لذلك ، لذا ليس كل الاكواد يمكن سحب البيانات من الموقع . كما ان هناك خطوات لتنزيل برنامج السلينيوم وتنزيل تحديث اصدار جوجل كروم لديك وايقاف تحديثه حتى لا يتغير التحديث وتظطر في كل مرة تنزيل تحديث جديد . خطوات يجب ان تعرفها قبل البد بسحب اي بيانات . يمكنك البخث في الانترنت لاتقان هذه الخطوات اولا . تحياتي

1. وتقدر تستغنى عن كل الاكواد ، بعمل استعلام union ، تجمع فيه الاستعلام الاصل و الاستعلام اللي فيه سجل فارغ ، ويكون هذا الاستعلام هو مصدر بيانات التقرير الفرعي ، ولكن ، دائما سيظهر لك سجل فارغ في الاسفل 😁 2. فكرة ثانية ، وهي عمل "صورة" لمسميات التقرير الفرعي ، فاذا مافيه بيانات ، خلي الصورة تطلع 😁 جعفر

الحمدلله 🙂

أخي @rockjone33 شكرا لمرورك .. ولكن شرحك غير مفهوم البته 🙃 جرب طبق على المرفق لنرى النتيجة ..

فقط يمكنك استخدام هذه المعادلة أو بعمل تنسيق للخلايا بأن يكون تنسيق الخلية يوم وليس تاريخ B2dddd =TEXT(B3,"b2dddd") هاجر البصمة1.xlsx

تفضل جعفر

ما شاء الله تبارك الله أخي @jjafferr زادك الله من واسع فضله،، فلقد فرجت هما كبيرا.. واختصرت جهدا صخما.. ووهبت علما جميلا.. كتب الله أجرك ورضي عنك.. هل يمكن التعديل بحيث يقبل أي ملف غير الـ pdf كالوورد مثلا أو الصور.. للناحية المستقبلية وللفائدة العلمية.. سلمك الله وأغناك وأسعدك ومن كل سوء حماك وكل من قرأ وشارك..

السلام عليكم بالاضافة لما تفضل به الاساتذة الكرام جرب هذا الملف وهو للاحت زهره العبدالله جزاها الله الخير. اتا شخصيا جربته وهو يعمل بدون اي مشاكل. جرب ووافنا بالنتيجة بالتوفيق zaLowSecurityAllOffice.rar

شكرا على الملف

حياك الله أستاذ جعفر ، تحسين في الكود: Dim crl As Control On Error Resume Next For Each crl In Me.Controls With crl If Not Right(.Name, 2) Like "1[1-5]" Then Err.Clear .Value = "" If Err.Number <> 0 Then .Value = Date 'لا أنصح بهذا السطر End If End With Next crl

همممم يعني صدق ناوي تجمع فريق الشباب الشايب في موضوع واحد 😁 استراتيجتي في المشاركات: اذا عندي شيء مفيد ، فأكتب مشاركة ، وإلا فاكون متابع بصمت 🙂 جعفر

لا اتفق معك استاذنا العزيز طاهر مثلا الان نحن في شهر 9 ميلادي 2 هجري لو حولت التاريخ وفقا لما صنعت سيكون الميلادي 2022 والهجري 1444 وهذا تمام جزئيا لكون الاشهر الستة الاولى من شهر 2022 توافق العام 1443 بعد اربعة اشهر يكون الميلادي 2023 والهجري وفقا لعملك 1445 وهذا غير صحيح لكوننا مازلنا في الشهر السادس 1444 ايضا جزء من عام 2024 سيكون ضمن العام الهجري 1445 والعام 1446 وعام 2025 سيكون ضمن العام 1446 والعام 1447 هجري ايضا العام 2030 بحسابك سيكون 1453 بينما يفترض ان يكون 1451 والعام 1452 اعتقد ان العمل يحتاج الى اعادة النطر والتحويل بالسنة بدون اليوم والشهر لن يعطي النتيجة المطلوبة رأي شخصي غير ملزم

للأسف احي احمد ، ما نقدر نعطيك جواب ، لأنه (والحمدلله) لم تحصل لنا المشكلة فنخبرك عن طريقة الحل ، وإنما نبحث ونقرأ عن الموضوع في الانترنت ، ونخبرك بالنصائح الموجودة ، وعليك التجربة 🙂 في هذه المحاولة ، ادخل مسار الشبكة في الرقم 7 (و اعد تشغيل الكمبيوتر) : .

أحسنت استاذ عادل عمل رائع شكراً جزيلاً لجهودكم

السلام عليكم ورحمة الله وبركاته🌹 هذا الاصدار شبهه الاخير ان شاء الله تقريبا من وجهة نظرى البسيطة والضئيلة واطرحه بين اياديكم للاطلاع والتجربة والرد بما ترونه مناسبا من تعديلات واضافات المميزات الاضافية امكانية وضع مجلد القارئ داخل مجلد الصوت بمسار القاعدة فقط والباقى على البرنامج ، ملاحظة يتم مسح اى مجلدات فارغة من مسار مجلد الصوت اليا كنا يتم اضافة اسم القارئ والرابط اليا الى الجدول دون تدخل من المستخدم الاصدار السابق كان لابد من ان تكون ملفات الصوت mp3 بفضل الله تم التحايل بالكود حتى يتم تشغيل ال wav يوجد مجلد منافع يتم إدراجه اليا بمجرد فتح القاعدة تجدون فيه برنامج تغيير اسماء ملفات الصوت للمصحف دفعة واحدة طبعا لابد من الحرص قبل اضافة المجلدات ان تكون اسماء الملفات الصوتية مثل المرفق السابق والمثال الموجود بالمرفق الحالي كما تم اضافة امكانية تعديل الوان التطبيق ارضاء لجميع الاذواق وبذلك اكون بفضل الله تعالي اضفت كل ما تم تناوله وطرحه فى الموضوع السابق استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @ابوخليل يعلم الله لم انم منذ ردكم بان المرفق لا يعمل عند حضرتك تاكدت من الاكواد جميعا بالسطر والكلمة والحرف اسال الله ان لا تواجه مشكلة هذه المرة لا يوجد كود بلا داع ولا توجد كلمات عربية داخل المحرر وتم التصميم على النواة ٣٢ بايت استاذى الجليل ومعلمى القدير الاستاذ @Gamal.Saad 🙏 لكم جزيل الشكر والعرفان بالجميل جزاكم الله خيرا 🌹 وضعت بهذا التطبيق عصارة ما لدى من افكار على طريقة كل من اساتذتى الافاضل الاجلاء الاستاذ @ابوخليل والاستاذ @jjafferr والاستاذ @رمهان وكل من تعلمت منهم وعلى ايديهم حتى لا اخطئ بنكران فضل لاحد فى هذا الصرح الرائع اتمنى ان شاء الله ان تنال رضاكم الذكر_الحكيم_V.__3.0.1.zip

السلام عليكم ورحمة الله وبركاته أخي الفاضل تفضل المرفق يصلح لأغراض عديدة إما كشف حساب لعميل أو لأمين خزينة أخوك / أحمد فؤاد كشف الحساب.rar

لاحظ معى عند جمع 5. + 625. ( ينتج 1.125 والصحيح هو 1.25)