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

اتفضل اضفت حقل رقم في مربع تحرير وسرد وغيرت هذا السطر من البحث rs.FindFirst "[رقم الملف] = " & Me![مربع_تحرير_وسرد96].Column(1) في حدث بعد تحديث و عند الحالي ايضا اليك ملف بعد تعديل test5.rar

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

وفقكم الله جميعا إخوتى الكرام و أبشركم فقد تم حل الموضوع للمرة الثالثة ( حل الأستاذ شيفان - و حل ابتكرته من عندى) لكن نظرا لكثرة عدد الحقول ( أكثر من 40) فقد كان الكود يعمل ببطء لا أرضاه فى برامجى التى أعمل عليها و الثالث بمقترح الأستاذ رمهان الذى وفر كل هذه الأكواد و الجداول و هو بتحويل مربعات النصوص إلى كمبوبوكس و جعل مصدر الصف استعلام for_combo و الحمد لله حل بسيط جدا و لكن وفر علينا سطورا من الأكواد ثقيلة شكرا أستاذ رمهان وشكرا أستاذ شيفان و شكرا أبا خليل و ليت هذا الموضوع يأخذ عنوانا جديدا كى يستفيد منه الجميع و كل عام و أنتم بخير الصورة من عرض الطباعة لكنى أنبه أن الخبرة تؤخذ من الحلول كلها سواء الأولى منها أو غيرها فقد تصادف موضوعات لا تحل إلى بتلك الحلول التى جعلناها فى مرتبة تالية فى موضوع سابق و كلها خبرات والحمد لله

اتفضل اليك هذا الحل اولا في الاستعلام انا اضفت لكل حقل حقل اخر بهذه الصيغة b1: Replace(Nz([b];"");" ";"") لكي يحذف جميع الفراغات للحقل وبعدين اضفت مربع نصي في النموذج باسم text44 وعطيت هذا الكود لمربع البحث text0 بعد تحديث Private Sub TEXT0_AfterUpdate() Me.Text44 = Replace(Nz(Me.TEXT0, ""), " ", "") End Sub وحذفت الشرط في الاستعلام من الحقول الاصلية وعطيت الشرط للحقول اللي انا عملته بدو مسافات وهذا هو الشرط Like "*" & [Forms]![FORM1]![Text44] & "*" وايضا اضفت لزر تصفير البحث هذا الكود Private Sub Command13_Click() Me![TEXT0] = Null Me![Text44] = Null Me.Requery End Sub والكود زر البحث خليت كما هو Private Sub COMMAND2_Click() Me.Requery End Sub والان اكتب النص بمسافة او بدون مسافة سيتم حذف المسافات ويبحثه اليك قاعدة بياناتك بعد تعديل b.rar

الأخ الكريم // مؤمن جمعة السلام عليكم ورحمة الله وبركاته بالمرفقات الفورم كما جاء في طلبك المرفق توضيح وظائف الفورم سيارات - مؤمن جمعة 1.rar

الأخوة الأعزاء ، السلام عليكم هـذه بعض الأشكال الجديدة والتي يمكن إضافتها للأشكال الموجودة في البرنامج. للإضافة ، عليكم فك الضغط ونسخها في ملف My Shapes في My Documents اتمنى الإستفادة للجميع people_shapes_2007.zip people_shapes_2002.zip Veritas.zip

السلام عليكم و رحمة الله تعالى و بركاته إخوتي الكرام حياكم الله أقدم لكم برنامج إستخراج أسماء الملفات و المجلدات الفرعية داخل مجلد دور البرنامج : استخراج اسماء الملفات الفرعية داخل مجلد و فتح الملف عند النقر مرتين على اسمه. شرح البرنامج: 1 - اختر النوع الذي تريد إظهاره المجلدات فقط أم المجلدات و الملفات معا 2- اختر المجلد الذي تريد استعراض ملفاته. 3- اضغط على الزر استخراج الملفات لظهور أسماء الملفات داخل مربع النص. 4- عند الضغط المزدوج على اسم الملف أو المجلد يقوم البرنامج بفتحه. أدعوا لي و لوالدي بالتسهيل في قرعة الحج إن شاء الله هذا هو البرنامج استخراج اسماء الملفات الفرعية لمجلد.rar

هذا كان فى بدايات الانتقال من الإكسيل إلى الأكسيس والحمد لله مازلنا نتعلم كل يوم فى منتدانا الغالى شكرا لك أخى شيفان

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

لا عذر بين الاخوان ابا خليل والله يعافيك شكرا اخواني عبدالفتاح وشيفان على مشاركاتكم المميزة كل عام وانتم بخير وتقبل الله منا ومنكم الصيام والقيام

المشاركة لاستاذنا و خبيرنا @عبد الفتاح كيرة يرجع ل 21 مايو في سنة 2011 اي يعني كان قبل 6 سنوات

في الاول غيرت نموذجك من نوع سبلايت الى نموذج مستمر وفي حدث الحالي كتبت هذا الكود Private Sub Form_Current() On Error Resume Next Me.Text11 = Me.اسم_ولى_الامر Me.Text72 = Me.رقم_الملف End Sub واضفت مربعين نصيين في اعلى النموذج مع زر واحد وفي خلف الزر كتبت هذا Private Sub Command74_Click() On Error Resume Next ' للعبور على الاخطاء Me.Command74.Enabled = False ' انبل زر الحدث لكي لا يتم الضغط على الزر مرتين Dim AddCul As String ' متغير لاضافة حقل Dim WeliAmmir As String ' متغير للتحديث حقل ولي امر Dim MyDcount As Integer ' متغير لتعداد السجلات Dim MiRic As Integer ' متغير لكي يكون معنا في كل سجل Dim WeliAmir As Integer ' متغير لتعداد اسم ولي الامر المكرر Dim delCol As String ' متغير لحذف الحقل المضاف في الاول Me.RecordSource = "" ' مصدر النموذج يساوي لا شيء لكي نقدر نضيف سجل الى جدول (جدول أ ) باس ( اسم ولى امر) AddCul = "ALTER TABLE [جدول أ] ADD [اسم ولى الامر] text(100)" ' اضافة حقل من نوع تيكست الى جدول أ و مسموح ل 100 حروف DoCmd.SetWarnings False ' ايقاف التحذيرات DoCmd.RunSQL (AddCul) ' تشغيل اضافة حقل MyDcount = DCount("[رقم الملف]", "[جدول أ]") ' تعداد رقم الملف في جدول أ weliammeir = "UPDATE [جدول أ] INNER JOIN [الاسماء المكررة 1] ON [جدول أ].[رقم الملف] = [الاسماء المكررة 1].[رقم الملف] SET [جدول أ].[اسم ولى الامر] = [الاسماء المكررة 1]![اسم ولى الامر] WHERE ((([جدول أ].[رقم الملف])=[الاسماء المكررة 1]![رقم الملف]));" ' تحديث حقل المضاف في جدول أ باسماء الي في حقل استعلام مكررة 1 بشرط ان يكون رقم الملف بيكون متساوى Me.Refresh ' تحديث النموذج DoCmd.RunSQL (weliammeir) ' تشغيل التحديث الحقل Me.RecordSource = "جدول أ" ' مصدر النموذج يساوي جدول أ Me.Refresh ' تحديث النموذج Me.اسم_ولى_الامر.SetFocus ' اكتيف اي تحديد اسم ولي امر DoCmd.GoToRecord , , acFirst ' الى سجل الاول For MiRic = 1 To MyDcount ' من سجل الاول الى اخر سجل If Len(DLookup("[كود ولى الامر]", "[جدول أ]", "[اسم ولى الامر]='" & Me.Text11 & "'") & "") = 0 Then ' اذا كود ولي امر الحالي ما بها اي بيانات اي عدد المسافة المستخدمة بيكون صفر Me.كود_ولى_الامر = Nz(DMax("[كود ولى الامر]", "[جدول أ]"), 0) + 1 ' كود ولي الامر الحالي بيكون يساوي اكبر رقم من كود ولي الامر في جدول أ زائد واحد واذا ما بها اي رقم كود ولي الامر يساوي صفر زائد واحد Else ' اذا ما طبق شرط الاعلاه Me.كود_ولى_الامر = DLookup("[كود ولى الامر]", "[جدول أ]", "[اسم ولى الامر]='" & Me.Text11 & "'") ' كود ولي الامر يساوي بحث عن كود ولي الامر في جدول أ بشرط ان يكون اسم ولي الامر بيكون يساوي مع الاسم في مربع نصي باسم تيكست 11 في اعلا النموذج End If ' انهاء الشرط WeliAmir = DCount("[اسم ولى الامر]", "[جدول أ]", "[اسم ولى الامر]='" & Me.Text11 & "'") ' تعداد اسم ولي الامر في جدول أ بشرط ان يكون اسم الولي امر يساوي اسم اللي في مربع نصي باسم تيكست 11 اللي في اعلى النموذج If WeliAmir > 1 Then ' اذا كان العداد الاعلى بيكون اكبر من 1 Me.له_اخوات = True ' له اخوات يساوي ترو اي صح اي عنده اخوات Else ' واذا ما طبع الشرط الاعلاه Me.له_اخوات = False ' له اخوات يساوي فالس اي الغاء الصح امامه اي ليس له اخوات End If ' انهاء الشرط Me.عدد_الاخوات = WeliAmir ' عدد الاخوات في النموذج يساوي العداد الاعلى DoCmd.GoToRecord , , acNext ' الى سجل التالي Next MiRic ' كن معنا مع السجل التالي وسيكون مع كل سجل يعمل هذا من فور ماي ريك الى اخر سجل Me.RecordSource = "" ' من جديد مصدر النموذج خلي بيكون لا شيء لكي نقدر ان نعمل الخطوة التالية Me.Requery ' تحديث delCol = "ALTER TABLE [جدول أ] DROP COLUMN [اسم ولى الامر]" ' حذف حقل اسم ولى الامر في جدول أ DoCmd.RunSQL (delCol) ' تشغيل الحذف Me.RecordSource = "الاسماء المكررة 1" ' مصدر النموذج بيكون استعلام اللي باسم الاسماء المكررة 1 DoCmd.SetWarnings True ' تشغيل التحذيرات Me.Command74.Enabled = True ' انبل الزر الحدث يساوي نعم End Sub وفي حدث عند الفتح النموذج كتبت هذا لكي يكون مصدر النموذج بيكون استعلام اسماء المكررة 1 Private Sub Form_Open(Cancel As Integer) Me.RecordSource = "الاسماء المكررة 1" End Sub لكن في البداية سيكون يبطيء العملية وهذا يرجع لاك تستخدم استعلام على الاستعلام و بيأخذ الاستعلام الاول معلوماته عن الفانكشن وعند كتير حقول بيأخذ البيانات من فانكشن و بعدين تعمل الجمع بين تلك الحقول وبعدين تستخد ذلك الحقل الا وهو اسم ولي الامر * حسب رأيي اذا تأخذ اسم الولي الامر بطريقة ان يتم الحذف الاسم الطالب سيبقى لك اسم الاب وهذا حسب فراغ بين اسم الاب واسم الطالب والله يعلم اتفضل اليك القاعدة القي نظرتا اليه ولى الامر.rar

لم تقل كتابة ، انت قلت نختار لماذا ؟ وأين الصعوبة ، وما هي المشاكل ؟

تفضل تم التطبيق على الادارة ونوع التعليم اخفاء حقول في نموذج2.rar

كود المدرسة لا يتم الاختيار منه فهو مربع نص يظهر داخله نجمه

السلام عليكم اليك الطريقه

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

جرب Private Sub SearchCmd_Click() For Each itm In Item_List.ItemsSelected xt = xt & Item_List.ItemData(itm) & "','" Next xt = "'" & Left(xt, Len(xt) - 2) Me.tt.Form.Filter = "[Item]in(" & xt & ")" Me.tt.Form.FilterOn = True End Sub بالتوفيق

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

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

ربما يكون الحل هنا تم جماية خلايا المغادلات لعدم العبث بها عن طريق الخطأ جلب بيانات بين تاريخين SALIM.rar

السلام عليكم تفضل اخي الكريم عل هذا ما تقصد Sub K_print() 'C من الصف 9 الى اخر صف به بيانات بالعمود D9:K طباعة النطاق 'printpreview بـــ PrintOut ان اردت المعاينه قبل الطباعه استبدل Range("D9:K" & Cells(Rows.Count, "c").End(xlUp).Row).PrintOut End Sub

حياك اخ ايمن احب الاسئلة من النوع ده هذا كود يفلتر النموذج وليس هناك حاجة لفلترة الاستعلام . هذا حسب فهمي Private Sub SearchCmd_Click() For Each itm In Item_List.ItemsSelected xt = xt & Item_List.Column(2, itm) & "," Next Me.tt.Form.Filter = "[no]in(" & xt & ")" Me.tt.Form.FilterOn = True End Sub بالتوفيق

السلام عليكم ضعي هذا الكود بشيت رقم 1 وراجعي النتائج - عله المطلوب تماماً ( قمت بتنفيذ ذلك بالملف المرفق ) Sub Button1_Click() Dim rw As Long, x As Range Dim extwbk As Workbook, twb As Workbook Set twb = ThisWorkbook Set extwbk = Workbooks.Open(ThisWorkbook.Path & "\" & "2.xlsx") Set x = extwbk.Sheets("ورقة1").Range("A1:C752") With Application .ScreenUpdating = False .Calculation = xlManual .DisplayAlerts = False .AskToUpdateLinks = False End With With twb.Sheets("ورقة1") For rw = 2 To .Cells(Rows.Count, 1).End(xlUp).Row .Cells(rw, 4) = Application.VLookup(.Cells(rw, 1).Value2, x, 3, False) Next rw End With extwbk.Close savechanges:=False With Application .AskToUpdateLinks = True .DisplayAlerts = True .Calculation = xlAutomatic .ScreenUpdating = True End With End Sub merge.rar

وفقك الله أستاذ حمدي أقترح حسب ما تعلمنا في قواعد كيفية بناء قاعدة بيانات قوية * أن يتم إنشاء جدول لأولياء الأمور فيه (رقم واسم ولي الأمر وعنوانه وعدد الأبناء حقل محسوب وأي بيانات مطلوبة عن ولي الأمر) * وجدول آخر للطلاب به (رقم الطالب ورقم ولي الأمر (حقل ربط بين الجدولين) واسم الطالب الأول فقط وفصله وأي بيانات تخص الطالب) بهذه الطريقة تستطيع حساب عدد مرات تكرار كود ولي الأمر في جدول الطلاب وتحسب النسبة بكل سهولة وتعرض بيانات الطلاب أسفل نموذج أولياء الأمور في النموذج الفرعي كل عام أنتم بخير

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

موضوع جميل جدا الف شكر لحضرتك