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

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

السلام عليكم 🙂 عندي مجموعة ملاحظات في هذا الموضوع ، فرجاء تتحملوني 🙂 1. لو كان اخونا عبد اللطيف واضح في سؤاله ، ومرفق الملف الصحيح ، لو كنا وصلنا للحل بدري 🙂 2. اتفق مع الجميع ، فنحن بحاجة الى معيار آخر كذلك ، قد يكون التاريخ ، حتى مع الحل الاخير الذي قدمه الاستاذ ابا جودي ، فالايجار لن يظل نفسه لطول العمر !! 2.1. لابد من استعمال المسميات الانجليزية في تسمية جميع كائنات الاكسس ، لأن التسميات العربية تقلب الاوامر ولا نستطيع ان نضبط الكود بها ، 3. بدل استخدام Dlookup (لا ننسى انك يجب ان تكتب الاسم بالضبط وبطريقة صحيحة ، حتى يعمل Dlookup ويجلب القيم الصحيحة) ، الافضل استخدام Combobox ، فممكن ان يعطيك اكثر من قيمة لإيجار الشقة ، وتختار منها. ويكون عندك في حقل Combobox اعمدة بجميل الحقول الاخرى ، وعلى حدث "بعد تحديث" الحقل ، يتم توزيع/فرز القيم على بقية الحقول 🙂 4. الامر Dlookup في الواقع هو استعلام ، لذلك فنحاول قدر الامكان ان نجلب كل البيانات من الجدول مرة واحدة ، ثم نفرزها في النموذج ، وهذا اللي يعمله كود الاستاذ ابا جودي ، بالاضافة الى كتابه اقل 🙂 5. اتفق مع الشباب ، بأنه في اعتقادي ، مشاركة أكثر من شخص في الرد على السؤال ، يفتق الاذهان ويدمج التجارب ويبلور الافكار وفائدة للجميع ، فمنه نتعلم الطرق الاخرى للإجابة على السؤال جعفر

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

همممم 1. الموضوع كان ، لماذا يحدث تكرار في البيانات كلما استعملنا delookup ، 2. يا سلام ، اشوف الجميع يتفق مع توقيعي: 🙂 جعفر

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

بارك الله فيك اخي @ابا جودى هذه العبارة انا اتفق معك تماما فيها ... لان اساس المنتدى تعليمي .... 🌷

شرح رائع استاذ . ربيع 🌷

عدل خصائص مربع التحرير والسرد كما في الصورة --------->>>>>>>

شكرا استاذي َ @essam rabea على هذا الشرح المبدع وشكرا أستاذ @kanory لمرورك

هنا بيت القصيد وانظر الى عنوان الموضوع لماذا يحدث تكرار في البيانات كلما استعملنا delookup ؟؟ لذلك من الطبيعي تكرار البيانات

الأخ الفاضل ازهر عبد العزيز بفرض ان المعيار فى حقل ال ID مثلا = 100 ويكون حقل ال Name برضه مثلا = "محمد" يعنى الشرطين مع بعض (And) يبقى كدة هيبحث عن رقم 100 و إسم محمد ولكن لو عاوزين نبحث عن رقم 100 أو إسم محمد يبقى نضع الشرط المعيارى فى أو (Or) وبكدة تكون النتيجة ان يظهر رقم 100 بالاضافة الى اى حد اسمه محمد "فسر الما بعد جهد بالماء" .. أنا نفسى مفهمتش .. صح؟

من واقع المرفق الطالب المعرف الاسم الهاتف المعدل النتيجة 1 احمد 078 88 ناجح 2 احمد 077 46 راسب بادئ ذى بدئ اؤيد وبكل شدة رأى اخى الحبيب الاستاذ @مسفر هنا الاسم تكرر دائما لن تأتيك الا النتيجة التى تخص السجل الأول اون كنت تريد الكود الذى يأتيك بالبيانات دون اضافة سجل جديد اليك الحل استبدل سطر الكود تبعك بهذه الأكواد Dim rs As DAO.Recordset Set rs = Me.RecordsetClone rs.FindFirst "[الاسم] = '" & Me![fname] & "'" If Not rs.NoMatch Then Undo Me.Bookmark = rs.Bookmark MsgBox ("موجود من قبل ") End If سؤال على ديلوكاب.accdb من وجهة نظرى الثوابت التى تريحك تمام ويمكنك الاعتماد عليها بدلا من الاسم لان الاسم قد يتكرر مع الكثيرين من الاشخاص - رقم الشقه اعتقد فى العمارة الواحد رقم الشقة لا يتكرر مطلقا -رقم هوية المستأجر فرقم الهوية ايضا حتما لم يتكرر لشخص اخر

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

المرفق مافيه مشكله 🙂 جعفر

منطقيا .. يجب ان يكون الحل متاح .. لماذا ؟ لأن العلامات تظهر على محدد السجلات عند تغير الخاصية بحثت كثيرا وتوصلت الى طريقة تحايل على السجل باستخدام : Me.Dirty .. false or true الآن افتحوا المرفق وجربوا .. يشتمل على نموذجين تم ضبط السجلات = محرر .. بمعنى اننا سنعمل على المثال وكأننا على الشبكة افتحوا النموذج frm1 وغيرو في قيمة الحقل واتركوه مفتوحا ثم افتحوا النموذج frmtest 1- حاولوا تغيير قبمة الحقل وانظروا الصورة التي ستظهر 2- ادر عجلة الفأرة للانتقال الى سجل آخر او جديد ثم اكتب شيئا وانظر ماذا يحدث للصورة اتمنى ان يكون حلا مرضيا db1.mdb

وعليكم السلام استخدم الحدث التالي DoCmd.SetWarnings False DoCmd.OpenQuery "اسم الاستعلام" DoCmd.SetWarnings True

بالتوفيق اخي الكريم

فورم لوضع صورة متحركة للحرووف الهجائية الفيديو الصور

شكرا جزيلا kanory

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

تسلم - جزيت خيرا اشكرك - الحمد لله تم المطلوب - جزاك الله على جهودك

تفضل أخي @مصطفى010 ربما هذا ...... 1 (1).accdb

انضممت لهذا المنتدى الرائع بتاريخ 13/10/2017 واكتشفته بطريق الصدفة ونزلت سؤال كان بالنسبة لي معجزة اني اتوصل للحل وساعدني على حله الاخ @Shivan Rekany الله يجزيه الخير علما اني فاقده من زمان ما شفت مشاركات له ثم بعد ذلك تعمقت بالمنتدى وبدأت احمل ما تقع عينه عليه واقرأ واتعلم واتعلم وخلال ثلاث شهور اصبحت استطيع ان اصمم برنامج بسيط ومنذ ذلك التاريخ لا يمكن أن يمر يوم دون ان ادخل الى المنتدى وأصبح تاساعد الزملاء واحل بعض الامور التي استطيع علها وعندي خبرة بها الان ولله الحمد صممت 23 برنامج وأبيع البرنامج بسعر 100 دينار اربدني أي ما يعادل 150 دولار ولا ازال اتعلم وسأبقى اتعلم علما اني دارس برمجة وتحليل نظم الا اني استفدت من هذا المنتدى اكثر من الدراسة ** اوجة رسالة محبة من هذا المنبر لكل الاحبة اللي نذروا نفسهم لخدمة الناس ومشاعدة المحتاج للعلم ومنهم @jjafferr and @AlwaZeeR and @ابا جودى and @ابوخليل and @kanory مع احترامي الشديد لمن لم تسعفني الذاكرة لذكر اسمه ولا تزال المسيرة مستمرة وكل يوم نتعلم درس جديد واذا شاء المولى عز وجل عام 2025 سأكون خبير أكسس بفضل الله عز وجل وفضل الاحبة في هذا المنتدى دمتم بخير جميعا

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

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

الكود لا يتأئر باسماء الشيتات لأنه يدرجها اوتوماتيكياً في الصف الأول فقط يجب ان تكون الصفحة "خلاصة "هي الأولى واذا وجدت شيت لا تحتوي على بيانات(في الأعمدة 1و2و3) يتم تجاهلها مهم جداً وجود كلمة "الاسم" في العامود الثاني من كل شيت

اتفضل جرب والشرح ان كان هذا ما تريد بعد التجربة وان كان هذا ما تريد لا تنسي الدعاء الوفير لاستاى الجليل ومعلمى القدير الاستاذ @jjafferr والله اهدانى هذا الكود فى يوم من الايام دون ان اطلبه حتى كنت اسال عن شئ وكتبت كود كبير جدا ومطول لاصل لمبتغاى بعد ان توصلت لاجابة على سؤالى والذى لم يكن له علاقة تقريبا بهذه الطريقة وبهذا الكود اهدانى اياه معلمى حتى لا يكون الامر شاقا على بكتابة الكثير من الاكواد لاصل لهذه النتيجة اسأل الله تعالى ان يرزقه عن كل حرف كتبه ليعلم به حسنه واسال الله تعالى ان يضاعفها بكرمه وجوده الى اضعافا لا تحصى ولا تعد يارب العالمين فتثقل ميزان اعماله فيترتقى اعلى درجات الجنان يارب العالمين شقق ومخازن ايجارات - Copy.accdb توضيح فقط لم ارد جلب البيانات اصلا مرة اخرى لاننى بالفعل املكها فى احد الجداول لماذا اجلبها وحمل القاعدة ببينات تتكرر من الاساس

المرفق مع السجل الجديد يجلب المعدل كما تريد مع الاسم وهذا ما تريده ان يتم التسجيل لكل اسم اكثر من سجل مع احضار قيم ثابته من اول سجل اين المشكله اذن

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

في رأي الحل يكون بعمل حقل غير منظم لادخال معرف فريد وتكون لجلب البيانات وتعمل جدول خاص ببيانات المستأجرين ::بالتوفيق::

والامر الكامل هو: If Me.Dirty = true Then Me.Dirty = False هي تساوي في العمل: docmd.runcommand accmdsaverecord اي تحفظ السجل ، ولكن ، بدل ان نحفظ السجل وبدون ان نكون قد قمنا يتغيير شيء فيه ، الامر me.Dirty=true معناه هناك تغيير في قيمة في السجل ، فاذا بالفعل هنا تغيير ، اذن قم بالحفظ ، يعني تحقق اذا كان الحفظ مطلوب او لا 🙂 جعفر

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

اولا قبل اى شئ ننتظر منكم مرفقا بالمكان الصحيح والمكان الصحيح لنتعلم

السلام عليكم ورحمة الله وبركاتة مداخلة اساتذتي الا ترون ان الكود الذي وضعه عبداللطيف وضع في المكان الخطأ وفي الوقت الخطأ ولذلك احتمال نسبة الخطأ في النتائج 99% لأن الدالة (DLookup) اذا لم تخبرها ما تريد بالضبط فأنها ستأخذ أي شيئ تجده أمامها وترجع اليك به

كود جميل كجمالك يا أستاذي الفاضل ابا جودى وشكراً للجميع

من العامود B الى العامود K هناك 10 أعمدة (تنقص منها 1 ) فتصبح 9 في هذا السطر من الكود Prince_sh.Cells(m, i + 2) = Application.Sum(temp.Areas(XX).Offset(, 1)) تستبدل الرقم 1 بالرقم 9 ليصبح بهذا الشكل Prince_sh.Cells(m, i + 2) = Application.Sum(temp.Areas(XX).Offset(, 9))

أخي ازهر ، رجاء اقرأ بقية المشاركات ، فالشباب يناقشون اشياء اعمق من مجرد قفل برنامج مستخدم !! جعفر

من الصعب جداً تشغيل معادلات لمثل هذه الــ DATA لكن بواسطة الــ VBA يمكن عمل أي شيء الملف المرفق ديناميكي تستطيع ان تضع قدر ما تشاء من الأقسام والقوائم الكود Option Explicit Sub Salim_Has() Dim my_rg As Range Dim Main As Worksheet Set Main = Sheets("الخلاصة") Main.Cells.ClearContents Dim i%, x%: x = 1 Main.Rows("1:2").ClearContents Dim const_arr(1 To 3) const_arr(1) = "رقم القائمة": const_arr(2) = "عدد أسماء القائمة" const_arr(3) = "مبلغ القائمة" Dim arr_sh(1 To 3) For i = 1 To Sheets.Count - 1 arr_sh(i) = Sheets(i + 1).Name Next For i = 1 To UBound(arr_sh) Main.Cells(1, x) = arr_sh(i) Main.Cells(2, x).Resize(, 3) = const_arr x = x + 4 Next get_data End Sub Rem ========================== Rem form here start a new Macro Rem========================= Sub get_data() Dim Prince_sh As Worksheet Set Prince_sh = Sheets("الخلاصة") Dim last_col%, my_st$: my_st$ = "قائمة رقم " Dim i%, last_row%, m%: m = 4 Dim k%, XX%, t%: t = 1 Dim target_sh As Worksheet Dim temp As Range last_col = Prince_sh.Cells(1, Columns.Count).End(1).Column For i = 1 To last_col Step 4 Set target_sh = Sheets(Prince_sh.Cells(1, i) & "") last_row = target_sh.Cells(Rows.Count, 1).End(3).Row For k = 2 To last_row If target_sh.Cells(k, 2) <> "الاسم" And target_sh.Cells(k, 2) <> vbNullString Then If temp Is Nothing Then Set temp = target_sh.Cells(k, 2) Else Set temp = Union(target_sh.Cells(k, 2), temp) End If End If Next If temp Is Nothing Then GoTo My_Next For XX = temp.Areas.Count To 1 Step -1 Prince_sh.Cells(m, i) = my_st$ & t Prince_sh.Cells(m, i + 1) = Application.CountA(temp.Areas(XX)) Prince_sh.Cells(m, i + 2) = Application.Sum(temp.Areas(XX).Offset(, 1)) m = m + 1: t = t + 1 Next My_Next: Set temp = Nothing: m = 4: t = 1 Next End Sub الملف مرفق Full_File.xlsm

شوف يا سيدى الفاضل السطر الاول ايقاف رسائل الاستعلام DoCmd.SetWarnings (False) كود فتح الاستعلام DoCmd.OpenQuery "اسم الاستعلام" إعادة الوضع الطبيعى مرة أخرى بتشغيل رسائل الاستعلام DoCmd.SetWarnings (True) بعدم وجود السطر الاخير لن تظهر رسائل الاستعلام مرة اخرى لهذه القاعدة الا بعد الاغلاق والفتح مرة اخرى

تدعى علينا لماذا يا اخى لا اله الا الله الم نقدم المساعدة بقدر المستطاع

تم معالجة الامر (بواسطة Auto filter ) مع تعبئة اوتوماتيكية للــ Combo Box دون تكرار Copy_filtred_rows_without_Hedears.xlsm

اضافات للفائدة تستطيعون تطبيق الفكرة على برامجكم dlookup.accdb

الاخ العزيز الغالي @خالد سيسكو بعد التحية أشكرك على مجهودك الأكثر من رائع وأرجوا من الله أن يجعل هذا المجهود في ميزان حسناتك

الاخ العزيز الغالي @خالد سيسكو بعد التحية أشكرك على مجهودك الأكثر من رائع وأرجوا من الله أن يجعل هذا المجهود في ميزان حسناتك عندي سؤال آسف لو كنت هطول عليك عندما اضع اي فايل لا يعمل عندي إللا إذا غيرت اسمه إلى ringin وبالتالي يعمل معي اي فايل موسيقى اخرى لا يعمل السؤال الآن هل بإمكاني ان اضع اكثر من فايل فى قاعدة بيانات واحده ولكن باساء اخرى لان كل حدث سوف يصدر صوت معين في صدد المشروع الذي اقوم ببناءه ولكم مني جزيل الشكر والعرفان على مجهوداتكم الرائعة

السلام عليكم وضعت لك زر امر لتشغيل ملف صوتي نوع wav تشغيل الصوت بزر.rar

اخي يوسف .. حبذا لو ذكرتم طريق الحل هل هي بالطريق التي ذكرتها في هذالموضوع ام امر اخر .. بارك الله فيك

أخي الكريم المفترض انت من يضع المثال للتعديل عليه . لكن انظر المثال .... حاول التعديل على النموذج ثم قم بالتحديث ولاحظ الفرق Ka-Update.rar

كما ذكر اخي ابا جودي . حاول تجربة الخطوط العربية الموجوده لديك حتى تشاهد ظهور الخط العربي بالشكل الصحيح

السلام عليكم ورحمة الله وبركاته........... كل عام والجميع بخير وصحة في المثال المرفق كود لحذف جيمع جداول وعلاقات القاعدة الحالية ....... المطلوب كرما منكم التعديل على الكود . لحذف جداول وعلاقات قاعدة خارجية ....... ولكم مني الشكر سلفا ... kanory.rar

أسف .... ممكن لو تيسر معك شرح للكود ......