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

اتفضل هل تريد ان يكون النتيجة هكذا ؟ اذا نعم اليك المرفق فرز.rar

الیک المرفق لکن لا انصحك باستخدام هذه الطريقة الا اذا كان كلا الوقتين في يوم واحد Database1.rar

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

بسم الله نبدأ عامنا الحالي بهذه الموسوعة 1200_Visual_Basic_macro_examples.rar عسى أن ينال إعجابكم

وعليكم لسلام ورحمة الله وبركاته من مراجعتي لقاعدة البيانات.. أستطيع القول فهمك للفكرة سليم جدا، وبداية عملك موفقة! لكن انغلق تفكيرك فيما يبدو لي عند الأمور التالية - تسمية مربعات النص التي والبيانات التي تحملها. - أدوار الفندق وكيفية تمثيلها في النموذج. - البيانات المتعلقة بالتاريخ وكيفية تمثيلها في مربعات التاريخ. لن أقوم بحل هذه الإشكالات لكن أضعك أمام هذا التعديل وأنا متأكد تماما أنه سوف ينقدح ذهنك وتكون قادرا بإذن الله على إكمال مشروعك بكل اقتدار.. ** سوف تجد أن بيانات الغرفة رقم (103) ليست في مكانها الصحيح وذلك لأني لم أقم بإعادة تسمية مربعات النص الخاصة بهذه الغرفة. ** في اعتقادي أن عنصر التحكم: عنوان (Label) أفضل من مربعات النص (TextBox). Hotel_.zip

الموضوع خاص بالاستاذ زيزو العجوز .. حفظه الله السلام عليكم ورحمة الله البحث عن اسم من خلال قائمة طويلة من الاسماء باستخدام يوزر فورم مكون من تكست بوكس وليست بوكس اليكم الملف اتمنى ان يعجبكم '=========================== '=========================== Option Explicit 'الكود للاستاذ زيزو العجوز 'وتمت الاضافه عليه من قبل الاستاذ ياسر خليل 'الهدف من الكود البحث باول حرف Private Sub TextBox1_Change() Dim a As Variant Dim b() As Variant Dim i As Long Dim j As Long ListBox1.Clear a = Sheet1.Range("B2:B" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row).Value For i = LBound(a, 1) To UBound(a, 1) If TextBox1.Value = Left(a(i, 1), Len(TextBox1.Value)) Then j = j + 1 ReDim Preserve b(1 To j) b(j) = a(i, 1) End If Next i On Error Resume Next ListBox1.List = b On Error GoTo 0 End Sub Private Sub UserForm_Activate() TextBox1.SetFocus End Sub Private Sub CommandButton1_Click() Unload Me End Sub Private Sub ListBox1_Click() Dim ws As Worksheet Dim r As Variant TextBox1.Value = ListBox1.Value Set ws = Sheets("DATA") 'هنا يتم البحث عن قيمة التكست بوكس في العمود الثاني r = Application.Match(TextBox1.Value, ws.Columns(2), 0) 'في حالة كانت النتيجة رقمية يعني أنه تم العثور على اسم الشخص المطلوب If IsNumeric(r) Then 'في هذه الحالة يتم تحديد الخلية في العمود الثاني في الصف الذي تم العثور عليه ws.Cells(r, 2).Select End If End Sub ============================ بحث باول حرف.rar

الكود المطلوب لاي حالة Option Explicit Sub Tarhil_Salim_Modifier2() Dim S_S As Worksheet Dim lr%, lr1%, i%, k%, m% Dim Off_col%, Int_Col%, My_Col% Set S_S = Sheets("البيانات") lr = S_S.Cells(Rows.Count, 1).End(3).Row My_Col = S_S.Cells(1, 3) Int_Col = Application.Match("الاسم", S_S.Range("a2:xfd2"), 0) Off_col = Application.Match("الحالة", S_S.Range("a2:xfd2"), 0) If Not IsNumeric(My_Col) Or My_Col < 2 Then Exit Sub My_Col = Int(My_Col) For i = 2 To Sheets.Count Sheets(i).Cells.Clear Next For i = 2 To Sheets.Count S_S.Cells(2, Int_Col).Copy Sheets(i).Cells(2, 1) S_S.Cells(2, Off_col).Copy Sheets(i).Cells(2, My_Col) Next For i = 2 To Sheets.Count k = 3 m = 3 Do Until S_S.Cells(2, Int_Col).Offset(k - 3) = "" If S_S.Cells(k, Off_col) = Sheets(i).Name Then Sheets(i).Cells(m, 1) = S_S.Cells(k, Int_Col) Sheets(i).Cells(m, My_Col) = S_S.Cells(k, Off_col) m = m + 1 End If k = k + 1 Loop Sheets(i).Columns(My_Col).AutoFit Next End Sub Private Sub CommandButton1_Click() Tarhil_Salim_Modifier2 End Sub Salimحسب 3الحالة.rar الملف مرفق

جسب الكود يحب ان تبدأ الاسماء من الخلية A3 والحالة في اي عامود اخر ( اذا اردت يمكن تغيير الكود ليبدأ ابنما تريد)

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

نم التعديل على الماكرو حسب الطلب Option Explicit Sub Tarhil_Salim_Modifier() Dim S_S As Worksheet Dim lr%, lr1%, i%, k%, my_col%, m% Dim Opt_col% Set S_S = Sheets("البيانات") lr = S_S.Cells(Rows.Count, 1).End(3).Row my_col = S_S.Cells(1, 3) Opt_col = Application.Match("الحالة", S_S.Range("a2:xfd2"), 0) If Not IsNumeric(my_col) Or my_col < 2 Then Exit Sub my_col = Int(my_col) For i = 2 To Sheets.Count Sheets(i).Cells.Clear Next For i = 2 To Sheets.Count S_S.Cells(2, 1).Copy Sheets(i).Cells(2, 1) S_S.Cells(2, Opt_col).Copy Sheets(i).Cells(2, my_col) Next For i = 2 To Sheets.Count k = 3 m = 3 Do Until S_S.Range("a" & k) = "" If S_S.Cells(k, Opt_col) = Sheets(i).Name Then Sheets(i).Cells(m, 1) = S_S.Cells(k, 1) Sheets(i).Cells(m, my_col) = S_S.Cells(k, Opt_col) m = m + 1 End If k = k + 1 Loop Sheets(i).Columns(my_col).AutoFit Next End Sub Private Sub CommandButton1_Click() Tarhil_Salim_Modifier End Sub الملف مرفق Salimحسب 2الحالة.rar

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

اتبع الخطوات عند فتح التقرير في وضع التصميم بعدين اختر الحقل للفرز

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

اخي سفيان ماهي نسخة ال Sql التي تستخدمها ؟؟

جرب هذا الملف Salimحسب الحالة.rar

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

عندك طريقتين اولا والاولى هو ان تكتب هذا تلصق في محرر فيجوال للتقرير Private Sub Report_NoData(Cancel As Integer) MsgBox "لا يوجد طلاب" Cancel = True End Sub والطريقة الثانية هو كتابة الكود عند الضغط على زر فتح التقرير وهو Private Sub أمر0_Click() If DCount("*", "main1") = 0 Then MsgBox "لا يوجد طلاب" Else DoCmd.OpenReport "Rep2", acViewPreview DoCmd.Maximize End If End Sub اتفضل اليك قاعدتك بعد تعديل بكلا طريقين dgree (2).rar

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة هل تعلم---------- معلومات تخص ListBox تم ارفاق كود الحل من الفاضل _ أ /عبدالله باقشير و لا تنسونا من صالح الدعاء تحياتى نموذج عرض وتعديل بيانات (1).rar و مرفق ملف بعدتعديل النطاق لزيادة مدى الاستدعاء تعديل النطاق_نموذج عرض وتعديل بيانات.rar

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل ( تجارب وفوائد ) :: دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) شخابيط ابو جودى: سلسلة منافع مختلفة لتجميعات دوال عامة وافكار مختلفة ( FileDialog ) شخابيط وافكار : اليوم اقدم اليكم منفعة لا غنى عنها (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين