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

وعليكم السلام 🙂 حيا الله اخوي عبد اللطيف 🙂 تفضل: . ثم . بهذا الكود : 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

السلام عليكم ورحمة الله تعالى وبركاته أما بعد ... استكمالاً لفكرة سابقة قدمها الاستاذ الخبير @SEMO.Pa3x "حسنين حرزالدين" على الرابط التالي جعل قاعدة البيانات تعمل بوجود الانترنت ( تفعيل عن بعد ) ومن ثم فكرة الاستاذ الخبير @Elsayed Bn Gemy "السيد جمال السيد" على الرابط التالي التحكم فى قفل وفتح قاعدة البيانات اونلاين ومن ثم فكرة الاستاذ القدير @صالح حمادي على الرابط التالي https://www.officena.net/ib/topic/97710-التحكم-فى-قفل-وفتح-قاعدة-البيانات-اونلاين/?do=findComment&comment=596125 وبعدها اقترحت المساهمة بتطوير فكرة الاستاذ السيد والاستاذ صالح وبمساعدة الاساتذة الكبار وعلى رأسهم الاستاذ الجليل المبدع دائماً " الاستاذ جعفر " @jjafferr الذي له الفضل الكبير علي من بعد الله والاستاذ "Abu Elkaram" @AlwaZeeR مع الاخذ بالاعتبار ماتقدم به الاستاذ حسنين في هذه المشاركة https://www.officena.net/ib/topic/97710-التحكم-فى-قفل-وفتح-قاعدة-البيانات-اونلاين/?do=findComment&comment=596463 وبالقليل من المجهود الذاتي توصلت الى الطريقة التالية في تفعيل البرنامج عن طريق الانترنت وحماية البرنامج من النسخ وها أنا اضع ملف مقفل للتجربة قبل وضع الملفات مفتوحة . أتمنى من الاساتذة تجربته وابداء الملاحظات لتطوير البرنامج والشكر موصول لكل من ساهم ولو بالقليل في انجاح هذا البرنامج تحياتي https://www.dropbox.com/s/066y7hbt7zna87b/protection_trial.zip?dl=0 protection_trial.zip

السلام عليكم ورحمه الله وبركاته اخوانى الافاضل فى بعض الاحيان نحتاج اضافه بيانات وعرض البيانات فالنموذج مع عدم السماح بالتعديل فالبيانات السابقه يمكن عمل ذلك فى حاله عرض البيانات فقط من خلال عرض النموذج فى وضع التصميم وتحديد الحقول بالكامل مره واحده ومن الخصائص نقوم بتحديد خاصيه تم تأمينه ونحدد لها نعم كما بالصوره ولاكن اذا اردنا عرض البيانات السابقه مع عدم التعديل عليها والسماح بالاضافه فالكود التالى يفى بالغرض باذن الله احاول ان اتعلم واشارككم مع اصل اليه من معلومات للتصحيح ولاستفاده والاستذاده من اساتذتى وجميع الاخوان فى منتدانا الغالى ومرفق مثال : نموذج tblNames ارجو ان اكون قد وفقت فى الشرح وايصال المعلومه وارجو من اساتذتنا التعقيب والاضافه ' كود لعدم السماح بتعديل البيانات السابقه والسماح بالاضافه فقط If Not Me.NewRecord Then Me.AllowEdits = False End If وجزاهم الله خيرا كل من وضع لنا معلومه وعلمنا وشاركنا وساعدنا واسال الله لهم ان يكتب لهم بكل حرف حسنه وان يرزقهم ويبارك لهم فى جميع ما يحبون وان يرزقهم الفردوس الاعلى تقبل الله منا ومنك صالح الاعمال تحياتى لكم طبتم واهتديتم test.accdb

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

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

تسلم استاذ @kha9009lid انتم الاساتذه وانا طالب لديكم واتعلم منكم تقبل تحياتى وتمنياتى لكم بالتوفيق طبتم واهتديتم

اخي الفاضل ، المنتدى مليان مواضيع شبيهة ، فكل ما عليك عمله هو البحث !! بحثي السريع اوصلني الى: و . جعفر

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

شكراً استاذ علي محمد جزاك الله خيراً

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

تم تحديد الصفوف الخمسة الأولى تكون مكررة في الطباعة فيمكنك تغيير أخر صف من ناحية الطباعة كما تريد وتم أيضًا تحديد العمود الأول يكون مكرر في الطباعة حتى يتسني لك تجميع أوراق كل كشف تفضل المرفق fathy2019.xlsx

تحتاج تستورد الوحدة النمطية الموجودة بالملف وفي القيمة الافتراضية لحقل التاريخ الهجري تضع الاتي =strHijri(Date())

احسنت استاذ احمد

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

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

حسب فهمي أنظر إن كان هذا يلبي رغبتك ::بالتوفيق:: إن كنت ترى هذه المشاركة مفيده فلا تنسى التقييم Utilities Hide Ico Minimze To SysTray V.02.906.rar

طبعا بعد اذن اخي سليم حاصبيا من format cells ثم Custom ثم ضع هذا التنسيق

اتفضل اخي Copy of الاجازة-1.xlsx

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

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

جرب الملف تحياتي جدول1.xlsx

تم اضافه الملف في المشاركه السابقه مع الشرح قم بتحميله مره اخري

السلام عليكم 🙂 شكرا اخي كاسر ، فلقد تذكرت اني مررت بمثل هذه المشكلة ، ودخت الى ان عرفت المشكلة 🙂 لما تستخدم الاكسس 2007 فما فوق ، فالاكسس يحمي الكمبيوتر ولا يسمح لك ان تفتح اي برنامج ، اذا اردت فتح البرنامج في مجلد "غير موثوق به" ، لذا ، اذا فتحت البرنامج في مجلد غير موثوق به ، سيظهر لك هذا الخط الاصفر ، وبه زر "تمكين المحتوى" : . لذا عليك بضغط الزر ، وسيعمل الكود في برنامجك بطريقة عادية. ولكن ، وحتى لا تحصل على هذه الرسائل دائما ، يجب عليك ان تعمل مجلد/مجلدات موثوق بها : ويجب ان تتأكد من انك سمحت للاكسس ان يعطيك الخط الاصفر : بعد هذا ، المفروض ان برنامجك يشتغل عدل 🙂 ولكن ، هناك مشكلة يقوم بها الكثير من المبرمجين ، وهذه المشكلة في جعل النموذج: منبثق = نعم ، شكلي او مشروط = نعم ، ويجعل النموذج ينفتح على حجم الشاشة (docmd.maximize) : . فلما ينفتح البرنامج ، سيكون الخط الاصفر خلف النموذج ، فلن تراه ، وعليه لن يعمل البرنامج !! جعفر

السلام عليكم -فقط يمكنك استخدام هذه المعادلة =IF(B1*11.5%>316.25,316.25,B1*11.5%)

جرب هذه الداله بعد اذن أ/ سليم Boook1.xlsx

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

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

وعليكم السلام-تفضل =CONCATENATE(E4," ",E5," ",E6," ",E7," ",E8," ",E9," ",E10," ",E11)

لك ما تريد NO_ZEROS.xlsx

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

اي جدول في الاكسل يجب الا يكون فيه خلايا مدمجة تم اضافة سطر فارغ رقم 2 لازالة الدمج Option Explicit Sub TWO_IN_ONE() Dim RD As Range, RK As Range Range("M2").CurrentRegion.Clear Set RD = Range("d3").CurrentRegion.Columns(3) Set RK = Range("K3").CurrentRegion.Columns(3) With Range("M2").Resize(RD.Rows.Count) .Value = RD.Value .Offset(RD.Rows.Count).Resize(RK.Rows.Count) = _ RK.Value End With With Range("M2").CurrentRegion .Sort Range("M2"): .Interior.ColorIndex = 6 .Borders.LineStyle = 1: .Font.Bold = True End With End Sub الملف مرفق COPY_2 iN 1.xlsm

ارى ان يتم اضافة عمود مساعد في صفحة البيانات لتكويد الفواتير مثلا مشتريات S ومبيعات M واضافة ComboBox في الفورم يضاف له فاتورة مشتريات و فاتورة مبيعات في حال الاختيار فاتورة مشتريات يرحل في العمود المساعد S وفي حال الاختيار مبيعات يرحل في العمود المساعد S اذا لديك اقتراح اخر ضيفه ليتم العمل على ملفك

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

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

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

السلام عليكم اخي ياسر فتحي اشكرك على مرورك العطر ولك مثل دعائك اضعاف مضاعفه ان شاء الله الاخ والاستاذ ياسر خليل اليك المرفق ان شاء الله ان تم حل اشكاليته Kh_Srech_Al_###.rar