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

وعليكم السلام 🙂 حيا الله اخوي عبد اللطيف 🙂 تفضل: . ثم . بهذا الكود : Option Compare Database Private Sub cmd_Hide_Show_Click() If Me.cmd_Hide_Show.Caption = "اخفاء" Then Call Hide Me.cmd_Hide_Show.Caption = "اظهار" Else Call Show Me.cmd_Hide_Show.Caption = "اخفاء" End If End Sub Private Sub Hide() Me.x1.Visible = False Me.x2.Visible = False Me.x3.Visible = False End Sub Private Sub Show() Me.x1.Visible = True Me.x2.Visible = True Me.x3.Visible = True End Sub جعفر 1144.hide_show.accdb.zip

تفضل-يمكنك استخدام هذه المعادلة =INDEX($D$3:$D$250,MATCH($F3,$B$3:$B$250,0)*MATCH($G3,A$3:$A$250,0)) 1إستخراج بيانات.xlsx

وعليكم السلام-تفضل لك ما طلبت Option Explicit Dim listRng As Range Private Sub btnRemove_Click() Dim i As Long Dim rowsList As String For i = ListBox1.ListCount - 1 To 0 Step -1 If ListBox1.Selected(i) Then ListBox1.RemoveItem i Else rowsList = rowsList & i + 1 & " " End If Next i If rowsList <> "" Then UpdateListRange Left(rowsList, Len(rowsList) - 1) End Sub Sub UpdateListRange (rowsList As String) Dim addr As String Dim iRow As Variant Dim rowsListArr As Variant rowsListArr = Split(rowsList) For iRow = UBound(rowsListArr) To LBound(rowsListArr) Step -1 addr = addr & listRng(rowsListArr(iRow)).address(False, False) & "," Next iRow If addr <> "" Then addr = Left(addr, Len(addr) - 1) Set listRng = listRng.Parent.Range(addr) End Sub Private Sub UserForm_Initialize() With Worksheets("Sheet1").Range("A2:E1000") Me.ListBox1.List = Application.Transpose(.Cells) '<-- fill ListBox1 list Set listRng = .Cells End With End Sub طريقة تصميم فورم بحث عن طريق لست بوكس5.xls

تفضل بعد اذن الأستاذ حسين 1مصغر.xlsm

حياك الله 🙂 واذا ما اردنا ان نكتب عربي في الكود ، فنستفيد من اعدادات الحقل ونحفظ القيمة هناك في tag الحقل ، هكذا : . والكود يصبح (طبعا الكلمات بالعربي للتوضيح فقط ، ويمكنك حذفها من الكود) : Private Sub cmd_Hide_Show_Click() Dim x() As String 'اعمل هذه القيمة في مصفوفة : اخفاء,اظهار 'والفارزة بين الكلمات عبارة عن فاصلة x = Split(Me.cmd_Hide_Show.Tag, ",") 'x(0) = اول قيمة في المصفوفة ، وهي اخفاء 'x(1) = ثاني قيمة في المصفوفة ، وهي اظهار If Me.cmd_Hide_Show.Caption = x(0) Then Call Hide Me.cmd_Hide_Show.Caption = x(1) Else Call Show Me.cmd_Hide_Show.Caption = x(0) End If End Sub جعفر 1144.1.hide_show.accdb.zip

وهنا

السلام عليكم ورحمة الله وبركاته أسأل الله تعالى أن يجعله بميزان حسناتكم آمين جزاكم الله خيراً

تفضل لك ما طلبت-طبعا بعد اذن استاذ ابو ايسل الاجازة.xlsx

جرب المرفق لعل فيه بعض ما تريد... EX.xlsx

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

وعليكم السلام 🙂 بياناتك افقية بهذه الطريقة: . وتم تحويلها عموديا الى جعفر 1142.قاعدة البيانات1.accdb.zip

السلام عليكم ,,, الرجاء مراجعه الملف وارجو ان تجد به ما طلبت اخي الكريم ... العمال.xlsx

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

وكيف تنتظر وتتم المساعدة بدون ملف ؟ّ!!! لا يمكن المساعدة الا بعد رفع ملف مدعوم بشرح كافى عن المطلوب-والا ستحذف المشاركة ,لأننا نبهنا اكثر من مرة لا يجوز رفع اى مشاركة بدون ملف

نعم وهو الملف الوسيط سيتكفل بهذه المهمة تم التعديل المطلوب ولتسهيل الأمر على مسؤول القاعدة اذا اراد مثلا اظهار الكائنات للتعديل أو الإطلاع تمت اضافة زر أمر لاظهار الكا ئنات وشريط الادوات بدل ما يقوم بألغاء كلمة السر ثم اعادة تفعيل الشفت وفتح القاعدة من جديد فقط نقرة زر كل شي يكون أمامه طبعا زر الأمر لازم يكون مخفي عن المستخدم ونقوم بإيجاد طريقة لاظهاره للمسؤول بالنسبةلي بما اني استخدم نظام صلاحيات مستخدمين أضع هذا الكود عند فتح النموذج لاظهار زر الأمر وتفعيله If MyUser.username() = "Kaser906" Then Me![cmd47].Enabled = True Me![cmd47].Visible = True End If الملف بالمرفقات ::بالتوفيق:: إذا كنت ترى هذه المشاركة مفيدة فلا تنسى التقييم FreeKaser906.rar

السلام عليكم امتداداً لتطويرات برنامج الخليل المحاسبي يسرني أهدي لكم الإصدار الثاني مع تعديلات وإضافات جميلة كما أشكر أستاذي الفاضل @sandanet لقد استفدت من طريقته في الحماية حسب مشاركته القيمة : اترك لكم البرنامج . وآملاً أن اتلقى ملاحظاتكم القيمة بعد استخدام البرنامج . تقبلوا فائق المحبة والتقدير BuySal20_V14.accdb BuySal20_V14.accdb.mdb.zip

أستاذى الجليل ومعلمى القدير و والدى الحبيب (استاذ @jjafferr ) رغم أن الكلمات تحتار أين تقف في مسرح الأحرف لتنظم من نفسها أجمل العبارات ..لأهديها لكم فمشاعرى هي كلماتى المسطورة وكلماتى هي دليل قلبى وقلبى نبضاته تقول لكم مليون شكر ( أستاذى الجليل ومعلمى القدير و والدى الحبيب (استاذ @jjafferr ) أنت وكل أساتذتنا الكرام ولو أنى أجد عبارت الشكر تخجل منكم فهى أقل من أن توفيكم حقكم وقدركم رأيـــت الحـق حـق المـعـلـم وأوجبة حفظاً على كل طالب له الحق أن يهدي إليه كرامة لتعليم حرف واحــد ألف درهم شموع كثيرة تحترق ...لتنير دروب الآخرين عطاء وآمالا ... وتضحيات شتى تنثر ..من أجل الوصول للأسمى ...ومعكم حققنا ولمسنا مع العلم كل معاني الجود والكرم و الجمال أسعدكم الله فى الدارين ورزقكم البركة فى العمر والعلم والعمل والاهل والولد وغفر الله لكم ولوالديكم ومن تحبون وكل المسلمين ان شاء الله شكر الله لكم وجزاكم كل الخير ان شاء الله واحسن الله اليكم اسال الله تعالى ان ييسر لكم دروب الجنان كيفما شققتم ظلمة جهلنا بنور علمكم من غير كلل أو ثقم ولا ملل احبكم فى الله

السلام عليكم بارك الله فيك ابوالبشر استاذ مصطفى القاعده كان بها مشكله فقمت بعمل استيراد للجدول والنموذج والتقرير وتم حل المشكله بفضل الله سبحانه وتعالى ان لم يكن لديك اوفيس 2016 قم بعمل الخطوات السابقه فقط وستعمل باذن الله تقبل تحياتى وتمنياتى بالتوفيق طبتم واهتديتم BarCode_up.accdb

طيب انا الا على الموبايل ... لنا عودة ان شاء الله .. او لربما اعضاء المنتدى المتواجدين قد يحل لك المشكلة ...

جرب هذا المرفقات الاتية test.zip test 2.zip

السلام عليكم ,,, الرجاء مراجعه الملف وارجو ان تجد به ما طلبت اخي الكريم ... Time.xlsx

شكرأ اخي احمد وصلت الفكرة وبارك الله بجهودك القيمة شكرأ اخي kha9009lid

بالتوفيق اخي

جرب المرفق Database1.mdb

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

ترحيل خليه محدده بدون التنسيق.xlsm

بدون معادلات فقط بتغيير F3,G4 إستخراج بيانات.xlsm

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

بالتوفيق استاذ أحمد جزاك الله خيراً

ممكن تعطيني تصور فاتورة المشتريات الذي تريدها الاسعار والاصناف والعملاء هذا كله يدوي ام هنا قاعدة بيانات

أستاذ Torkmani أين الضغط على الإعجاب ؟

وعليكم السلام 🙂 تفضل 🙂 1141.ImportDegrees.accdb.zip

جرب المرفق Backup2.rar

كل الشكر على الرد السريع ضبطت معاي الله يوفقكم ويرزقكم الفردوس الأعلى

وعليكم السلام ,لماذا لا تستخدم خاصية البحث بالمنتدى-تفضل لك ما طلبت : تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور

جرب هذا الملف Boook1.xlsx

لك ما تريد NO_ZEROS.xlsx

تفضل راجع هذه الروابط فبها ما طلبت -فهذا افضل بالتأكيد بأن تعمل وتحاول لكى تتعلم تحويل معادلة صفيف إلى كود تحويل المعادلات إلى أكواد VBA

يمكنك مشاهدة فيديوهات كثيرة على اليوتيوب للتعلم كما انه يمكنك الإستعانة بهذه الكتب فى البداية : 497.pdf 1657.pdf

ايوه انا فاهم الكلام ده بس لو هناك ارقام ثابتة يكون أفضل تفضل هذا evaluation.xlsx

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

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

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

بارك الله فيك اخى الكريم ولك بمثل ما دعوت لى وزيادة واحبك الله الذى احببتنى من اجله ,والحمد لله الذى بنعمته تتم الصالحات . .

تكتب هذه المعادلة بالخلية G2 ثم اسحب للأسفل =IF(OR(C2<>"",E2<>""),"تم","") اما فى الخلية H2 يتم وضع معادلة للعد بدون تكرار وهى : =SUMPRODUCT(($G$2:$G$100="تم")/COUNTIFS($G$2:$G$100,$G$2:$G$100&"",$B$2:$B$100,$B$2:$B$100&"")) تم.xlsx

السلام عليكم الاخ fathiahmed اهلا وسهلاً بك عضوا جديد في صرح اوفسينا التعليمي اراك اقتبست رد لم نفهم مالمراد او المطلوب وفقك الله

نستخدم في التطبيق بحكم الحاجة الكثير من الرسائل و التنبيهات ، وفي كل مرة نضطر لكتابة الكود وتحديد موصفات وخصائص صندوق الرسائل ، النص و ضبط الازرار و الشكل و العنوان و,,, و,,, فدعونا ننشيئ وحدة نمطية نستدعيها عند اللزوم Public Function MsgOK(MsgText As String) As Boolean Dim LResponse As Byte Dim MsgTitle As String MsgTitle = " تنبيه " LResponse = MsgBox(MsgText, vbInformation + vbMsgBoxRight, MsgTitle) If LResponse = vbOK Then MsgOK = True Else MsgOK = False End If End Function وحين نحتاجها نستدعيها Call MsgOK("بسم الله الرحمن الرحيم")

إخوتي الأعزاء أخي عبدالله رغم تعدد الأسئلة ، نجيب عليها بما فتح الله علينا أجبت بتوفيق من الله على كافة الأسئلة(وزيادة - بما يلزم) وبمثال واحد وفي نموذج واحد ، والتطبيق المتخصص لحالة معينة عليكم في حال رغبتك بالتطبيق على مثالك الذي لم ترفقه. في التطبيق المواضيع التالية : Value list row source Sorting list box Sorting sub form Changing sub form row source Column Hidden in sub form تفضل .... والله من وراء القصد .... ...... NA_HowToDoIt.rar

أخي فؤاد قضاءا لحاجتك على الرابط .. http://www.officena.net/ib/index.php?showtopic=34799 ... ولانعدام الصلة بين الموضوع على الرابط وبين طلبك الأخير ، وتطبيقا لقواعد المشاركة واصولها في المنتدى ،تم افراد هذا الموضوع لمشاركتي هذه ... تفضل هذا تطبيق لفصل الاسم الاخير من اسم الطالبة بحقل منفصل في استعلام .... وفي جدول .... كلمات استدلالية : جدول - استعلام - وحدة نمطية - Split - تقسيم الاسم والله من وراء القصد ... NA_Split.rar

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