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

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

شكرا لك وجزيل الشكر لك عزيزي اتعبتك معاي .

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

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

جرب المرفق التقرير بامكانك تنسيق وفقا لما تريد مع رجاء التقيد بنظام الموقع سؤال واحد لكل موضوع لا نرغب مخالف قوانين الموقع Database1.mdb

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

اخي الكريم @omarahmed1424 ساتواصل معك على الخاص حالما اجهز بعض الملفات لتجربة بعد الدوال لتشخيص مكان الخلل

جزاك الله كل خير ...

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

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

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

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

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

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

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

انظر هذه طريقة سريعة على الماشي .... والصبر جميل ....... المدارس.accdb

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

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

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

ساوافيك غدا ان شاء الله بالرساله والنتيجه وفقكم الله لما يحبه ويرضاه طبتم واهتديتم

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

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

السلام عليكم ورحمة الله أحببت أن أشارك معكم في بخصوص هذا الموضوع بطريقة مختلفة بعض الشيء.. أرجو أن تجدوا فيها شيئا جديدا :: تنبيهات --- يتم رسم التقرير برمجيا.. --- عدد السجلات في رأس التقرير ثابتة من ناحية التصميم، متغيرة من ناحية البيانات.. - يتم تفيير البيانات في هذا المقطع وفقا لكميات البيانات.. - تستطيع كمية البيانات في هذا المقطع زيادة عدد صفحات التقرير تناسبا مع مصدر بيانات التقرير.ز - عدد السجلات المعروضة في هذا المقطع (10) سجلات لكل صفحة --- مصدر البيانات الأساسي هو الاستعلام (QRY_MATERIAL) --- يعاد بناء هذا الاستعلام كاستعلام (توحيد) بناءً على الفرضيتين التاليتين: -- التوحيد من أجل تكملة العشرة.. -- يتم إخفاء السجلات الوهمية بفحص معطيات الحقل الوهمي (TEST) - تزيد قيمة هذا الحقل كلما زادت الاستعلامات الوهمية (...،0،1،2) - البيانات الحقيقة تأخذ القيمة (0) --- إذا كانت بيانات مقطع الرأس أكبر من بيانات مصدر البيانات الأساسي -- يزيد عدد الاستعلامات الوهممية بواقع استعلام لكل (10) سجلات لزيادة عدد الصفحات -- يتم احتساب عدد الاستعلامات وتضمينها برمجيا بواسطة الإجراء (UNION_SQL) أرجو ألا تبخلوا بالنقد والتعليق😁 MATRIX REPORT.accdb

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

وعليكم السلام عليك بلصق هذه الأكواد فى حدث This Workbook Private Sub Workbook_BeforeClose(Cancel As Boolean) MsgBox "مع السلامة " & Application.UserName & _ vbNewLine & "فى حفظ الله شرفتنا", _ vbInformation, "منتدى أوفيسنا" ThisWorkbook.Save Application.Quit End Sub Private Sub Workbook_Open() MsgBox "أهلا وسهلا يا " & Application.UserName & _ vbNewLine & "أتمنى أن تكون فى أفضل حال", _ vbInformation, "منتدى أوفيسنا" End Sub

وعليكم السلام عليك برفع الملف نفسه

. =SUMPRODUCT(($G$2:$G$100="تم")/COUNTIFS($G$2:$G$100,$G$2:$G$100&"",$B$2:$B$100,$B$2:$B$100&"")) بالنسبة لهذه المعادلة اول جزء منها لا يمكن العد بدون تكرار الا اذا تحقق الشرط فى العمود G وهو وجود كلمة تم فاذن اقترن العد بما هو موجود بالعمود B مع وجود شرط الموجود بالعمود G

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

أحسنت بارك الله فيك استاذى الكريم

اهلا بك اخ كريم فى المنتدى عليك بضبط اللغة العربية لديك كما بالصور :بالدخول على لوحة التحكم Control Panel

وعليكم السلام تفضل الحل بمعادلة المصفوفة ضع هذه المعادلة قى الخلية E4 =MIN(IF(BLF!$A$2:$A$1000&BLF!$C$2:$C$1000=$C$4&$D$4,BLF!$E$2:$E$1000,"")) RECU.xlsx

وعليكم السلام يمكنك تجربة هذه البرامج Passware kit Forensic.V13.5.855 والأخر Reset VBA Password

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

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