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

السلام عليكم صورة لفهم المحتوى وقاعدة بيانات بها مثال لطريقة العمل . Msgbox With ComboBox.accdb ولا تنسي ان تسترد الكلاس الموجود لبرنامجك لانه سوف يبني عليه باقي السلسلة . بالتوفيق . كريم الحسيني .

ما شاء الله ، واقعا هذه اشياء جديدة علينا ، وفي انتظارها على احر من الجمر 🙂 الاكسس مليء بالمفاجآت ، ومفاجآته لا تنتهي 🙂 جعفر

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

وعليكم السلام يبدو انه تنتظرنا درر من تلك السلسة اول الغيث قطرة.. وهذه بدايات اكتشافاتي تجدها على زر الامر خروج وانا في انتظار باقي السلسة بشغف يا باش مهندس كريم Msgbox With ComboBox.zip

شكرا لك استاذ جعفر طبعاً سوف ارسل ملاحظتي وأيضاً سوف اقول علي ملاحظة هنا اتمني أن نتعامل مع الاسكنر مباشرة من الاكسس ٠٠ السحب مباشرة من الفيدر وتحويل الي ملف بي دي اف ٠٠ تحياتي 🌹

السلام عليكم 🙂 لتعم الفائدة ، رجاء قراءة الطريقة السابقة ، والتي يمكن قراءتها من هنا : https://www.officena.net/ib/topic/107637-اجعل-برنامجك-يعمل-على-النواتين-32بت-و-64بت/ ------------------------------------------------------------------------------------------------------------------ اذا عملنا برنامج على الاكسس 32بت ، وفيه مكتبات الوندوز الـ 32بت (لاحظ الرقم 32 في اسم المكتبة: comdlg32.dll) ، ثم شغلنا البرنامج على اكسس 64بت ، فنحصل على هذا الخطأ : . للعمل بهذه الطريقة محتاجين الى: 1. ملف في موقع مايكروسوف (مرفق نسخة Win32API_PtrSafe.zip) ، وفيه طريقة عمل مناداة النواتين : https://www.microsoft.com/en-us/download/details.aspx?id=9970 وعند فك الملف ، سنستعين بالملف Win32API_PtrSafe.TXT ، 2. البرنامج Notepad++ المجاني ، ويمكن انزاله من هنا : https://notepad-plus-plus.org بعد تنصيب البرنامج ++Notepad ، يمكننا فتح الملف Win32API_PtrSafe.TXT به : هذا البرنامج يفهم تنسيق وعمل الكثير من لغات البرمجة ، ومنها VB ، ونستفيد منه حتى في برمجة كود VBE لأنه يفهم تنسيقها: . ------------------------------------------------------------------------------------------------------------------ سنستخدم المرفق في هذ الرابط لنجعله يعمل على النواتين 32بت و 64بت: https://www.officena.net/ib/topic/61106-هدية-من-اليمين-الى-اليسار،-مربع-القائمة-listbox-والشجرة-treeview/ هذه هي مكتبات 32بت الوندوز المستعمله في المرفق: Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function GetFocus Lib "user32" () As Long Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long . خطوات العمل: A. ننسخ اسم المكتبة GetWindowLong من برنامج الاكسس ، B. ثم في برنامج ++Notepad ، نبحث عن هذه الكلمة عن طريق Ctrl+F ، C. فنضع الكلمة مكان البحث ، وننقر على المربع: Find All in Current Document . D. نرى هذ النافذة تُفتح في اسفل البرنامج ، اهم شيء في هذه النافذه هو ان نفرق بين كلمة البحث التي نريدها ، ونفرقها عن كلمات البحث المشابهه والتي لا علاقة لنا بها (يجب ملاحظة ان بعض البرامج/الامثلة التي ننزلها من الانترنت ، يكون صاحبها عمل تغيير في اسم المكتبة ، مثلا: بدل GetWindowLong يكون apiGetWindowLong ، فيجب ان نعرف انه نفس الاسم ، ونبحث عن الكلمة الاصل ، كما نلاحظ ان تعديل الاسم يتم من بدايته وليس من نهايته) . E. اذن نرى هنا ان آخر سطرين فيهما طلبنا ، F. ندقق في السطر ، ونبحث عن اي كلمة تنتهي بـ Ptr ، مثل LongPtr ، CLngPtr ، VarPtr ، ObjPtr ، StrPtr ، او الكلمات التالية LongLong ، CLngLng ، فاذا وجدناها ، اذن يجب التصريح لهذه المكتبة في الكود في برنامجنا على سطرين مختلفين ، السطر الاول للنواة 64 بت ، ونأخذه من برنرنامج ++Notepad ، والسطر الثاني للنواة 32 بت ، ونأخذه من برنامجنا الاصل ، هكذا : #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long #End If . *** الخطوة الاولى والاهم هي اضافة كلمة PtrSafe بعد كلمة Declare ، للنواة 64بت. *** لاحظ اننا اضفنا كلمة Public في اول السطر للنواتين ، *** وبعد كل خطوة نعملها ، يجب ان نعمل Compile :على الاكسس 32 بت والاكسس 64 بت :حتى نتأكد انه لا توجد اخطاء ونتبع نفس الخطوات اعلاه لبقية المكتبات ، المكتبة التاليه: SetWindowLong ، والنتيجة نفسها مثل المكتبة السابقة ، اذن الكود اصبح #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long #End If . وهكذا مع بقية المكتبات ، فيكون الكود النهائي: #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long) As Long Public Declare PtrSafe Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongPtr, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function InvalidateRect Lib "user32" Alias "InvalidateRect" (ByVal hwnd As LongPtr, lpRect As Long, ByVal bErase As Long) As Long Public Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As LongPtr, ByVal hWnd2 As LongPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPtr Public Declare PtrSafe Function GetFocus Lib "user32" Alias "GetFocus" () As LongPtr Public Declare PtrSafe Function GetWindow Lib "user32" Alias "GetWindow" (ByVal hwnd As LongPtr, ByVal wCmd As Long) As LongPtr #Else '32 bits Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Public Declare Function GetFocus Lib "user32" () As Long Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long #End If . الآن لنفترض ان لدينا هذه المكتبة كذلك: Public Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) . نلاحظ في البحث انه لا توجد لدينا اي من كلمات التي ذكرناها في #F اعلاه . اذن نكتب السطر (من برنامجنا ذو 32 بت) نفسه مرتين ، مرة للنواة 64 بت ، ومرة للنواة 32 بت ، فيصبح الكود (الفرق بين السطرين هي كلمة PtrSafe) : #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #Else '32 bits Public Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #End If او #If VBA7 And Win64 Then '64 bits Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #Else '32 bits Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) #End If او سطر واحد مستقلا Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) ------------------------------------------------------------------------------------------------------------------ 2021-11-20 : اخوي @عبدالله المجرب نبهني عند استخدام الاكسس 64بت ، يظهور خطأ في مرفق الرابط: https://www.officena.net/ib/topic/64989-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل-،-32بت-و-64بت/ لما نعمل Compile للبرنامج على كمبيوتر به اكسس 64بت ، تظهر هذه الرسالة ، واللي معناها مافي توافق في تعريف المتغير (يعني جزء من سطر الكود تم تعريفه بطريقة ، وجزء آخر من سطر الكود تم تعريفه بطريقة لا تتلائم مع المتغير السابق ، وابسط مثال: متغير تم تعريفه كنص ، ثم تعطي قيمته الى متغير آخر تم تعريفه كرقم) : . من الملاحظة ، نرى انه بما اننا نستخدم اكسس 64بت ، فتعريف المكتبة ShellExecute يكون عن طريق (VB7) ، وتعريفها انها LongPtr ، بينما في الكود ، اعطينا قيمة ShellExecute الى المتغير lRet والذي تم تعريفه على انه Long ، لهذا السبب لا يوجد توافق بين المتغيرين ، وعليه نحصل على الخطأ !! هناك حلين للموضوع: إما ان نعمل if VBA7 then# خاص للمتغير lRet لحالتي 32بت و 64بت ، او نحذف تعريف المتغير lRet من الكود ، ونضعه في الاعلى ، مع تعريف المكتبة ShellExecute ، وهذا ما قمت به: . وبعد عمل Comiple مرة اخرى ، نحصل على خطأ مشابه للخطأ اعلاه ، ولكن لمكتبة اخرى : . والحل ، كما عملته للمشكلة السابقة ، فيصبح الكود : . وبعد عمل Compile مرة اخرى ، نجد ان الكود يعمل بدون اخطاء 🙂 ------------------------------------------------------------------------------------------------------------------ 2021-11-23: اخوي @ابا جودى طلب مساعدة في برنامجه ، ليعمل على النواتين: https://www.officena.net/ib/topic/111963-سؤال-بخصوص-التعديل-على-قاعدة-بيانات-لتعمل-على-32-64-bit/ والشيء الجديد فيه والذي لم يتم شرحه سابقا هو: المتغير hIcon (باللون الاصفر) ، تعريفه يعتمد على النواة : . وعندنا هذه الدالة fSetIcon ومعرفها Long ، وفي الدالة ، نعطي نتيجة hIcon الى fSetIcon . المشكلة لما نواة البرنامج تكون 64بت ، فحينها يكون معرف الحقل hIcon هو LongPtr ، بينما الدالة fSetIcon لا يزال معرفها Long ، وهنا نحصل على رسالة خطأ بعدم تطابق معرف الحقلين !! والطريقة التي استعملتها هي: استعمال الدالة مرتين ، مرة بمعرف LongPtr اذا كانت النواة 64بت ، ومرة بمعرف Long اذا لم تكن النواة 64بت : . وعلشان نعرف ان البرنامج تقبل هذا التغيير ، يجب ان نعمل Compile 🙂 جعفر Win32API_PtrSafe (2).zip

هذه يسهل ما تشاء من شروط .... استخدم هذا Dim myCriteria As String myCriteria = "[نوع المستند] = '" & Me.نوع_المستند & "'" myCriteria = myCriteria & " AND " myCriteria = myCriteria & "[كود الدعوي] =" & Me.كود_الدعوي Me.n = DCount("[كود الحركة]", "harka", myCriteria)

هذا مثال اخي الكريم فيه عده صور واستخدامات عديدة للرسائل وبطرق متعددة .... يمكن ان يثري الموضوع .... ناقل.rar

طيب ممتار ان شاء الله اساعدك قدر استطاعتى انا الان احلل الاكواد واحاول الفهم وعلى قدر استطاعتى سوف اساعدك

لا تعتذر اخى أنا سعيد جدا بعملك ويسعدني أن تساعدني في شرح اي ما تستطيع شرحه باستخدام الكلاس لتعم الفائدة علي الجميع اما بالنسبه الاتجاه سانتهي منه واخبرك .

الله الله الله .......... جميل جدا .. أشياء جديدة أول مرة أعرفها .. 🌹

لن اعرض شيئا مستقبلا مما اكتشفته . واعتذر لك يا باش مهندس كريم لن اسبقكم ثانية ولكن كل ما اريد قوله نحن على موعد مع سلسة راااااااائعة جدا انا انتظر بلهفة واشتياق ولكن لى سؤال كيف يمكن التحكم فى صندوق الرسائل بأن يكون اتجاه النص من الجهة اليمنى

تفضل هذا التقرير كما بالصورة &&ساعات (1).zip

تفضل هذا التعديل &&ساعات (1).accdb

وعليكم السلام ورحمة الله تعالى وبركاته أستاذي الجليل ومعلمي القدير و والدى الحبيب أستاذ @jjafferr خيار الألوان يمرر قيمة مربع السرد من صندوق الرسائل الى مربع النص في النموذج ----------- طبعا ممكن عمل الكثير والكثير غير ذلك كل واحد وحسب بنات أفكاره اما فى المرفق الخاص بى انا على زر الامر خروج وضعت كود بناء على الكلاس يستطيع تغيير اسماء ازرار صندوق الرسائل كما انه يتيح لك زيادة عدد الازرار ان اردت واعتقد هناك الكثير والكثير هذا فقط بداية اكتشافى لازلت احاول الدراسة

السلام عليكم 🙂 انزلت المرفقين ، ولازلت لا اعرف مالذي يعمله اخيار الالوان من القائمة !! جعفر

شكرا ليكم جميعا 🥰

اجعل تنسيق الخلايا general وستجد المعادله سليمه

معادلة استاذنا الفاضل ابراهيم الجداد سليمة 100% شيت.xlsx

السلام عليكم ورحمة الله ضع هذه المعادلة فى الخلية B6 ثم اسحب نزولا =IFERROR(INDEX(Sheet2!$A$5:$M$10000;MATCH($B$3;Sheet2!$A$5:$A$10000;0);ROW()-5);"")

السلام عليكم 🙂 يمكنك توصيل صوتك ، وقراءة ما يريده معظم المبرمجين في بقية العالم 🙂 اكسس: https://feedbackportal.microsoft.com/feedback/forum/818e3b49-e61b-ec11-b6e7-0022481f8472 اكسل: https://feedbackportal.microsoft.com/feedback/forum/c23f3b77-f01b-ec11-b6e7-0022481f8472 بوربوينت: https://feedbackportal.microsoft.com/feedback/forum/af2977de-2f1c-ec11-b6e7-0022481f8472 وورد: https://feedbackportal.microsoft.com/feedback/forum/fb6d67e3-301c-ec11-b6e7-0022481f8472 جعفر

يمكنك وضع جميع ملفات الاكسل المطلوب تحويلها في مجلد باسم xls بنفس مسار الملف الذي به هذا الكود وإنشاء مجلد باسم csv بنفس مسار الملف الذي به هذا الكود واستدعاء الاجراء Mas_Xls2Csv Sub Mas_Xls2Csv() Dim xObjWB As Workbook Dim xStrEFPath As String Dim xStrEFFile As String Dim xStrSPath As String Dim xStrCSVFName As String Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual xStrEFPath = ThisWorkbook.Path & "\xls\" xStrSPath = ThisWorkbook.Path & "\csv\" xStrEFFile = Dir(xStrEFPath & "*.xls*") Do While xStrEFFile <> "" Set xObjWB = Workbooks.Open(Filename:=xStrEFPath & xStrEFFile) xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv" xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSVUTF8 xObjWB.Close savechanges:=False xStrEFFile = Dir Loop Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Done by mr-mas.com" End Sub بالتوفيق

موجودة في المشاركة https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=190590

تفضل التعديل sendemail.zip

تحت امرك اي وقت ❤️

اهلا اهلا اهلا أستاذي الجليل سعيد بمروركم ومشاركتكم أستاذي الان اواجه مشكلة لأنى قمت بتغير الأوفيس الى النواة 64 بيت سأقوم بالتعديلات اللازمة ان شاء الله لأرى ابداعاتكم ولمساتكم

وعليكم السلام ورحمة الله وبركاته الحمد لله بنعمه تفضل جرب هذا التعديل لعله يفي بالمطلوب test.xlsm

تفضل هذا التعديل بكود واحد فقط ... - لن يستطيع المستخدم الإدخال الا بعد اختيار نوع الفاتورة - جميع الحقول متاحة لكن لن يستطيع المستخدم ادخال البيانات الا بعد اختيار نوع الفاتورة امكانية التسجيل.accdb

لا تحتاج الى عمل وحدة نمطية اكثر من مرة ولا تحتاج الى تكرار الاكواد بدون داعى فقط لابد من إزالة Exit Function وموقعها في الكود بين الروتين الذى يتم تطبيقه على النماذج والروتين الذى يتم تطبيقه على التقارير ولم يتم تغيير الخط فقط في التقارير بسبب الخروج من الروتين بسبب هذا السطر والأفضل من استخدام On Error Resume Next استخدام كود تصيد الأخطاء ErrorHandler لتتمكن من الوقوف على سبب ومكان وتوصيف ورقم الخطأ وتمت التعديلات كالاتي إزالة Exit Function تغيير اسم الروتين العام حتى يتناسب مع الوظيفة التي يقوم بها ليسهل مستقبلا لأى مطور التعامل بسهولة في قاعدة البيانات إضافة كود تصيد الأخطاء ErrorHandler للوقوف على سبب ومكان وتوصيف ورقم الأخطاء حتى يسهل تفاديها إن وجدت أخطاء إضاقة متغير ثابت في أول الكود ليتم وضع اسم الخط فقط مرة واحدة في الروتين من باب المرونة والتسهيل على المطور ملاحظة هامة جدا جدا لابد من تغير اسم الخط الذى قمت انا باستخدامه في الوحدة النمطية وهو Calibri (Detail) باسم الخط الذى تريد أنت التغيير إليه وقمت بوضع هذا التلميح للتذكير في الوحدة النمطية عند المتغير الثابت الذى يحمل اسم الخط <<---------< Font name must be changed here between the quotation marks يتم استدعاء الكود من خلالChange Font.mdb Call ApplyDefaultFont وأخيرا الروتين والذى يتم وضعه داخل وحدة نمطية Function ApplyDefaultFont() On Error GoTo ErrorHandler Const strFontName = "Calibri (Detail)" ' <<---------< Font name must be changed here between the quotation marks Dim frm As AccessObject Dim rpt As AccessObject Dim dbs As Object Dim frm1 As Access.Form Dim rpt1 As Access.Report Dim ctl As Access.Control Set dbs = Application.CurrentProject ' Apply Default Font for All Forms For Each frm In dbs.AllForms DoCmd.OpenForm frm.Name, acDesign Set frm1 = Forms(frm.Name) For Each ctl In frm1.Controls If ctl.ControlType = acComboBox Or _ ctl.ControlType = acCommandButton Or _ ctl.ControlType = acLabel Or _ ctl.ControlType = acListBox Or _ ctl.ControlType = acOptionButton Or _ ctl.ControlType = acTextBox Then ctl.FontName = strFontName 'Debug.Print frm.Name & " > " & ctl.ControlType & " > " & ctl.Name If frm1.DefaultView = 2 Then frm1.DatasheetFontName = strFontName End If End If Next ctl DoCmd.Close acForm, frm.Name, acSaveYes Next frm ' Apply Default Font for All Reports For Each rpt In dbs.AllReports DoCmd.OpenReport rpt.Name, acDesign Set rpt1 = Reports(rpt.Name) For Each ctl In rpt1.Controls If ctl.ControlType = acComboBox Or _ ctl.ControlType = acCommandButton Or _ ctl.ControlType = acLabel Or _ ctl.ControlType = acListBox Or _ ctl.ControlType = acOptionButton Or _ ctl.ControlType = acTextBox Then ctl.FontName = strFontName 'Debug.Print rpt.Name & " > " & ctl.ControlType & " > " & ctl.Name If rpt1.DefaultView = 2 Then frm1.DatasheetFontName = strFontName End If End If Next ctl DoCmd.Close acReport, rpt.Name, acSaveYes Next rpt Set frm = Nothing Set rpt = Nothing Set dbs = Nothing Set frm1 = Nothing Set rpt1 = Nothing Set ctl = Nothing Exit Function ExitHandler: Exit Function ErrorHandler: MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description End Function وهذا مرفق التطبيق لتعم الفائدة ويكون مرجعا سهلا ان شاء الله Change Font.mdb

السلام عليكم 🙂 شفت بعض الاوقات لما تحس ان مخك ما يشتغل ، هذا انا الحين 😁 بما انك حددت وين المشكلة في برنامجك ، فانا عملت لك هذه المساعدة : وحدة نمطية اسمها mod_Global_Variables ، وفيها نحتفظ بنوع المستخدم في الحقل ppos ، ويمكن للبرنامج قراءته من اي مكان في البرنامج ، وعلى اساس قيمة ppos ، فقد وضعتها في حدث "الحالي" للنموذج ، فالرجاء وضعها بالطريقة الصحيحة (قلت لك مخي ما يشتغل 🙂) . جعفر 1417.moh.accdb.zip

سلام عليكم اليك هذا الحل وهو جلب البيانات بتلك الشروط ان غيرت الشرط بتلك الخانتين فانه ينفذ بتلك الشروط الجديدة اتمنى ان اكون قربت لك الحل سلامي لك ولكل الاغضاء Vente.xlsm

السلام عليكم تفضل اخى الملف بعد تفعيل الماكرو جدول-تصفية-المنح-ابجد-هوز-صحيح2020-2021.rar

نعم انا ألفتها بعد تنحي مبارك مباشرة راجيا أن يصلح الله أحوالنا جميعا

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. من فترة وأنا أريد طرح هذا الموضوع ، ولكني بسبب الزهايمر على ما يبدو فإني قد نسيته تماماً .. وذكرني به الأخ الحبيب والمعلم الكبير عادل حنفي فأحببت أن أشارككم هذا البرنامج الصغير في حجمه الكبير في فائدته البرنامج هو Smart Indenter VBA .. يقوم البرنامج بترتيب أسطر الكود بحيث يسهل قراءة الأكواد ..كنوع من التنظيم تنصيب البرنامج سهل للغاية ومش محتاج شرح ... بعد التنصيب ادخل على محرر الأكواد لديك وفي أي موديول مكتوب اعمل كليك يمين ستجد الأداة منصبة في الأوفيس لديك يمكنك اختيار ترتيب الإجراء الفرعي فقط أو الموديول بالكامل أو جميع الأكواد في المصنف مرة واحدة الأداة تعمل مع نظام 32 بت فقط أما 64 بت فلا تعمل للأسف أرجو أن يكون البرنامج مفيد للجميع حمل البرنامج من هنا

شكرا لك أخي هشام ويمكن لﻻخوة متابعة هذا الموضوع على صفحة الوزير على الفيس بوك أنا شخصياً عرفت بيه بعد صدوره بنصف ساعة يوم 3 سبتمبر 2011 هذا رابط التقويم الشامل http://www.facebook.com/media/set/?set=a.258455157518234.67664.196366397060444 كل عام أنتم بخير

أقصى حجم لقاعدة بيانات mysql لا يعتمد على خادم mysql بقدر ما يعتمد على نوع نظام التشغيل الذي يعمل عليه الخادم بمعنى أنه أقصى حجم للملف في ويندوز fat أو fat32 هو من 2 جيجا بايت إلى 4 جيجا بايت أما بالنسبة لويندوز ntfs فهو 2 تيرا بايت وكذلك في ماك 2 تيرا بايت ولينوكس من 2 إلى 4 جيجا بايت للأنظمة القديمة و 2 تيرا بايت للأنظمة الحديثة أتمنى أن يكون الأمر قد اتضح

رديت يا غالي عليك في موضوع النتائج وهذه هي بدايات تعلم لغة تصميم المواقع مرحبا بك فيها

يوجد في منتدى اﻹكسل برنامج باسم برنامج المرتبات للتربية والتعليم المصرية ابحث عنه وستجد به جهد غير قليل

السلام عليكم ورحمة الله وبركاته إخوتي وأخواتي حينما طالب القضاه في ألمانيا مساواتهم في الأجر بالمعلمين قالت لهم ميركل رئيسة وزراء ألمانيا أتريدون أن تتساووا بمن علموكم وأوصلوكم لهذه المكانة؟! ونحن هنا في مصر نطلب المساواة بعسكري الشرطة الذي مؤهله الإعدادية حيث وصل مرتبهم حاليا لما يزيد عن الألف لمن في بداية تعيينهم هل تبحث عن كرامتك ؟؟؟؟ 1- لما الكادر يديلك الحق انك تاخد الحوافز200 % وييجي الوزير يلتف علية ليحرمك من حقك .... يبقي لازم تشارك 2- لما رضا ابو سريع مستشار الوزير يقول علي المعلمين سيبهم يهوهو زي .... شوية هيتعبوا وهيمشوا ( في جريدة اليوم السابع) .... يبقي لازم تشارك 3- لما الوزير يتلاعب بدرجاتك ويقولك اللي قضي 8 سنين يترقي وبعدين يتراجع ويقول خمس سنين هو الكادر بقاله اد اية .... لازم تشارك 4- لما تكون مكافاتك 200 يوم وفي الوزارة بياخدوا 900 يوم واقل عامل في الكهرباء او الضرائب او غيرهم بياخد 900 يوم غير توزيع ارباح وغيرة .... يبقي لازم تشارك 5- لما الدنيا كلها بتاخد شهور هدايا في رمضان والعيد وغيرة حتي الوزارة والمديرية بتصرف الا انت محروم بطريقة مريبة .... يبقي لازم تشارك 6- لما يكون مرتب العامل في المحاسبات او الاتصالات او المالية اكبر من مرتبك عشر مرات ولما يكون عندنا مستشفي بندفع فيها بقالنا سنين ومنهوبة وانت ساكت عايز مين يجيبلك حقك .... امتي هتشارك 7- لما تقعد في البيت وتتكل عليا اني هجيب ليك حقك .... يبقي حقي وحقك مش هييجي وحقنا كلنا هيضيع 8- لما يكون الدنيا كلها بتاخد مكافاة نهاية الخدمة 200 و300 الف جنية وانت بتاخد 24 الف جنية .... يبقي خسارة فيك لو انت مش هتشارك الأسباب التى دعت المعلمين إلى القيام بهذه الثورة : - منح المعلمين حافز الإثابة 200%كاملا اعتبارا من 1/7/2011 طبقا للمادة 89 من القانون 155والمرسوم بقانون 51 لسنه 2011. - منح الدرجات المالية لمن استوفوا المدد البينية (خمس سنوات)طبقا للمادة 81 فقرة 2 من قانون 155لسنه 2007وقانون العاملين بالدولة رقم 47. - ترقية المعلمين للوظائف الاعلى المنصوص عليها بالقانون 155 لسنه 2007 لمن قضوا المدة /البينية المحددة من تاريخ استحقاقهم لها أو من 1/7/2009 كحد أدنى مع صرف الفروق المالية بأثر رجعى (كبير معلمين 23 سنه معلم خبير 18 سنه معلم أول (أ) 15 سنه معلم أول 8 سنوات ومعلم 5 سنوات ومعلم مساعد من تعيينه وحتي 3 سنوات . - إلغاء امتحانات الكادر حفاظا على كرامة المعلم ومكانتة. - زيادة مكافأة الامتحانات إلى 500يوم أسوة بالعاملين بديوان الوزارة أو مساواة العاملين بالمدارس بالعاملين بديوان الوزارة . - أن يكون الحد الأدنى للأجور بالتربية والتعليم 1200 للمعين حديثا وأن يكون الحد الأقصى لجميع العاملين بالتربية والتعليم 30000 الف جنية مهما كان مستواة الوظيفى . - منح 25 % حافز إضافى للعاملين بمدارس القرى مقابل العمل بمدارس الأرياف . - تكليف خريجى كليات التربية لسد العجز بالمدارس. ولتحقيق هذه المطالب وإصلاح التعليم أدعو الجميع وإن أمكن أدعو أولياء الأمور الذين يبحثون عن تطوير حقيقي لمساندة المعلمين في مطالبهم المشروعة وحضور الوقفة الاحتجاجية على سياسات التعليم يوم السبت 10 سبتمبر أمام مجلس الوزراء توقيع معلم مخلص لمصر ويريد لها الرقي

فعلا موقع رائع ربنا يوفق القائمين عليه للخير

ياريت مزيد من التوضيح. إخوتي الكرام: عندما تطلب شيئاً ينبغي أن تتحدث عنه باستفاضة فليس لغيرك خلفية مثلك ولا يفكر غيرك فيما تفكر فيه. وربما يكون المطلوب بسيطاً جداً ولكننا لم نفهمه أو لم يعبّر عنه صاحبه بصورة واضحة.

بالفعل وفقك الله ولكن اسمح لي أن أخاطب صاحب الموضوع ما الذي تراه غير صحيح حتى يتم تصحيحه؟ فلربما يكون المقصود من المعادلة غير الذي تم تنفيذه وفقنا الله جميعا لكل ما يحب ويرضى

وعليكم السلام ورحمة الله وبركاته شكرا لزيارتك مع أمنياتنا بتكرارها دائما