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

الكود الأول غير واضح بارك الله فيك .... واضح أن الرسالة مفادها أن اسم النموذج والكائن غير معروف للكود لاحظ اسم النموذج والكائن n1

تفضل أخي جرب ان شاء الله يكون حسب المطلوب. Hr_Kashf.accdb

ممكن توضيح اكثر وتفصيل اكثر وانت تاستخدمه فى ايه وياريت صوره التقارير المطلوبة ليتثنى تصميمها مع الداتا

تم معالجة الامر Example_Salim.xlsx

وانتم بخير صديقي وجيه اعاده الله عليكم وعلى الامة العربية بالخير واليمن والبركات

تمت الاجابة على هذا العنوان https://www.officena.net/ib/topic/92726-معادلة-ايجاد-كل-القيم-التي-تخص-رقم-معين/?tab=comments#comment-583693

تعديل بسيط على هذا السطر في الكود Range("E" & i).Resize(, UBound(My_Arr)) = My_Arr ليصبح هكذا (زيادة واحد فقط) Range("E" & i).Resize(, UBound(My_Arr) + 1) = My_Arr

بارك الله فيك استاذ سليم ,معادلة ممتازة ولا يوجد أفضل من هذه المعادلة للحل جعله الله فى ميزان حسناتك

جرب هذا الملف يمكنك نقل المعادلة الى الملف عندك ARABIC_TIME.xlsx

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

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

اذن نبقي الحقل مطلوب بدون تعديل ونستبدل رسالة اكسس برسالة من قبلنا في حدث عند الخطا نضع الكود Const conErrRequiredData = 3314 Select Case DataErr Case conErrRequiredData MsgBox "حقل مطلوب", vbInformation + vbOKOnly + vbMsgBoxRight, "تنبيه" Response = acDataErrContinue Case Else Response = acDataErrDisplay End Select حقل مطلوب.accdb

وعليكم السلام -كيف تظهر بدون وضع معادلة لهذا العمود ؟! تفضل تعديل.xlsx

وعليكم السلام القيد.xlsm

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

تفضل اخى الكريم لك ما طلبت جريدرات2.xlsx

بارك الله فيكم جميعا بعد اذن الأخت الكريمة -ولإثراء الموضوع هذا حل أخر بمعادلات المصفوفة جريدرات.xlsx

بيانات الموظف ومرفقات منوعة للموظف الفيديو الصور

اخواني في المنتدى .. عملت تقرير وعند معاينة الطباعة اجده 24 صفحة والـ 24 صفحة نفس البيانات .. مع انني عملتها A4 صفحة واحدة ارفع لكم صورة ؟؟ مع الشكر لكل الاحباء والاصدقاء والزائرين

الأخ hassan omara لفتح This Pc استخدم Shell "C:\Windows\explorer.exe shell:::{20D04FE0-3AEA-1069-A2D8-08002B30309D}", vbNormalFocus ولفتح Network Connection Shell "C:\Windows\explorer.exe shell:::{992CFFA0-F557-101A-88EC-00DD010CCC48}", vbNormalFocus ارجو ان يفى بالغرض

أستاذ سليم الف شكر لك معادلة رائعة

اللّهمّ يا رحمن يا رحيم يا سميع يا عليم يا غفور يا كريم إني أسألك بعدد من سجد لك في حرمك المقدس من يوم خلقت الدنيا الى يوم القيامة أن تطيل عمر عبدك @ابو عارف على طاعتك وترحم والديه وأن تحفظ أسرته وأحبته وأن تبارك له في ماله وعمله وتسعد قلبه وأن تفرج كربه وتيسر أمره وأن تغفر ذنبه وتطهر نفسه وأن تبارك سائر أيامه وتوفقه لما تحبّه وترضاه اللّهمّ آميين احسن الله اليك كما ارحتنا واسررتنا :::: هو المطلوب تماما

أولاً كان يجب عليك رفع ملف توضح فيه المطلوب ثانيًا يمكن عمل ذلك باستخدام التحقق من الصحة وذلك بتحديد الخلايا ثم الذهاب إلى بيانات واختر التحقق من الصحة يظهر صندوق حواري اختر اعدادت وأكمل كما بالصورة بالنسبة للرقم القومي الطول 14 أما بالنسبة للتلبفون اجعله 11

تفضل بالمرفق برنامج أكسس تستطيع بواسطته : إغلاق الكمبيوتر . إعادة التشغيل . وضع الإسبات . تسجل الخروج . اغلاق الكمبيوتر.rar

تفضل الحل بالمعادلات مخالفات الأرز.xlsm

السلام عليكم من سلسلة معلومة في اكسس استخراج الاجمالي بواسطة دالة Dsum واستخراج العدد الكلي بواسطة دالة Count أتمنى لكم الفائدة dsum.accdb

جزاك الله كل خير عيدية حلوة و مجزية

بارك الله فيك استاذنا الكريم على هذا البرنامج و كلمة السر للدخول : bin7shr بعد اذن استاذنا الكريم bin7shr تم رفع الملف فى المشاركة الأصلية لكى تعم الفائدة استاذنا الكريم عبدالله الصاري الملف يعمل وقد تم رفعه يمكنك تحميله من هنا مباشرة ويمكنك ملاحظة كل الإستفسارات من فيديو الشرح الموجود فى المشاركة الأصلية ولكن دائما عند محاولة تغيير كلمة السر من داخل البرنامج تظهر هذه الرسالة كما بالصورة

مثال رائع يا ابا اشرف ومفيد جزاك الله كل خير

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

اخي الكريم قاعدة البيانات المرفقة بما انها تحتوي على رموز لأسماء الأعمدة ستجد صعوبة في التعامل معها انت تريد التنسيق المستحسن لقاعدة البيانات انشئ جدول باسم الأطراف ( رقم الطرف - .............. بيانات الاطراف) انشئ جدول اسم القضايا ( رقم القضية / القيد - رقم الطرف الأول - رقم الطرف الثاني - ..... باقي البيانات) ** يفضل و بشدة ان تكون المسميات باللغة الانجليزية تهجئة عربية و حروف انجليزية ** رقم الطرف مفتاح اساسي ** عمل علاقة طرفية بين الجدولين تفضل هذا المقترح Database1.accdb

وعليكم السلام و رحمة الله و بركاته و كل عام و انت بخير و صحة وسلامة عتد تعديل على برنامجك قد وصلنا الى استبدال السجل (اخفاء سجل و عرض سجل بداله من كشف التالي) ولكن هل تريد امكانية استسناء سجل المستسني مجدداً في كشف التالي . ولكن يظهر السجل المستسني مع سجلات الشهر القادم مباشراً بعد ترحيل سجلات الحالية او بعده، واذا كنت تشترط عدم اظهار سجلات الا بعد فتح نموذج في المرة القادمة ، يمكن تعديله بعد توضيح منك.

اخي الكريم في حدث عند الخروج فقط ضع التالي SendKeys "{ESC}" اذا رغبت في رسالة تأكيد فقط ضع التالي If MsgBox("هل تود حفظ التغييرات", vbYesNo) = vbNo Then Cancel = True SendKeys "{ESC}" Exit Sub End If

تجربه وارجو تطويرها من الخبراء دوام الموظف.rar

خصائص الحقل محاذاة النص توزيع

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

لعل هذا ما تريد moukarar.xlsx

رائع استاذ علي ومعادلات رائعة ايضاً لكن اسمح لي ان اضيف كود لهذا الغرض لعل فيه افادة لمن يريد التعمق اكثر في عالم الــ Diuctionary من خلال الــــ VBA Option Explicit Sub Get_Phone() Rem ====>> Created By Salim Hasbaya On 18/7/2019 Application.ScreenUpdating = False Dim Dict As Object Dim Salim As Worksheet Dim Itm, K, i%: i = 2 Dim My_Arr, M_key Set Dict = CreateObject("Scripting.Dictionary") Set Salim = Sheets("Salim") With Salim .Range("D2").CurrentRegion.Offset(1) _ .Resize(, 10).ClearContents i = 2 Do Until .Range("A" & i) = vbNullString K = .Range("A" & i): Itm = .Range("B" & i) If Not Dict.Exists(K) Then Dict.Add K, Itm Else Dict(K) = Dict(K) & ";" & Itm End If i = i + 1 Loop '======================================== i = 2 With Dict For Each M_key In .keys Range("D" & i) = M_key My_Arr = Split(.Item(M_key), ";") If UBound(My_Arr) = 0 Then Range("E" & i) = .Item(M_key) Else Range("E" & i).Resize(, UBound(My_Arr)) = My_Arr End If i = i + 1 Next End With '======================== .Range("D2").CurrentRegion.Value = _ .Range("D2").CurrentRegion.Value End With Dict.RemoveAll: Set Dict = Nothing Salim.Columns("E:H").AutoFit Application.ScreenUpdating = True End Sub الملف مرفق FIND_PHONE.xlsm

السلام عليكم ورحمة الله صحيح أن عمل أخي الكريم "سليم" يخص CommandButton ولا يخص "مربع نص" (الذي نصه يتغير)... قمت بالتعديل على خصائص مربع النص باختيار خاصية "Do not Move or Dimension with cells" أي لا تحريك ولا تحجيم حسب الخلايا... راجع الملف المرفق... بن علية حاجي تجربة.xlsm

تفضل لك ما طلبت القيد2.xlsm

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

من فضلك ياريت توضيح ما يحدث معك بالضبط بالصور لأن الملف والكود يعملان معى بكل كفاءة شوف بنفسك

وعليكم السلام -اخى الكريم كان عليك عمل مثل الكود السابق تماما تفضل ترحيل من صفحة الى عدة صفحات.xlsm

تفضل ويمكنك ايضا الإستعانة بهذا الفيديو لتعلم كيفية عمل الرسم البيانى https://www.youtube.com/watch?v=lNGOfeV6egg https://www.youtube.com/watch?v=_hZffmh3xGU رسم بيانى.xlsx

وعليكم السلام اهلا بك اخى الكريم فى المنتدى عليك بتحديث برنامج الضغط عندك فالملف تمام تفضل وكلمة السر واسم المسخدم : 1 Arcives3.accdb

تفضل ترتيب الطلاب2 2019.xlsm

تفضل ترتيب الطلاب 2019.xlsm

الكود يوضع في زر اختيار الصورة فبعد اختيارها يقوم بترحيل الصورة الى السيرفر طبق الخطوات التالية 1- في جهاز السيرفر انشئ مجلد في القرص D وليكن اسمه img وقم بمشاركته مع السماح للمستخدمين بالتحكم الكامل طبعا هذه الخصائص تحصل عليها من الويندوز كما في الصورة 2- اضف الكود التالي الى نموذج حفظ الصورة في جميع الاجهزة Dim cr As New filesystemobject cr.CopyFile CurrentProject.Path & "\FileName1.jpg", "\\PcName\D:\img\FileName2.jpg", True End Sub filename1 هو اسم الصورة المراد نسخها من جهازك الى السيرفر pcname هو اسم جهاز السيرفر filename2 هو الاسم الذي ستحفظ به الصورة في جهاز السيرفر لاتنسى اضافة المرجع الموضودفي الصورة جرب ووافينا بالنتيجة

اخي الكريم المرفقات تحتوي مثالين للبحث اختر منها ما يناسبك و للامانة العلمية فان المرفق الأول هو من صنع معلي و استاذي الغالي ( ابو آدم ) جزاه الله كل خير وقد قمت بتعديله ليلبي حاجتك Accidents5-1.rar Accidents5-2.rar