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

كان من المفروض تحميل ملف مع شرح المطلوب بدقة (كما اقترح الاستاذ هاني محمد) ولا لزوم لتضييع اكثر من ساعة من الوقت على كتابة معادلات وفي الأخير تظهر انها ليست المطلوبة لذا كنت أريد الاعتذار عن المتابعة بهذا الملف لكن حيث انها المرة الاولى لا بد من الاستجابة الكود Option Explicit Function Salim_Letter(rg As Range) Dim dic As Object, i Dim ST, Mot$ Mot = Replace(rg.Value, " ", "") Set dic = CreateObject("Scripting.Dictionary") For i = 1 To Len(Mot) If Not dic.Exists(Mid(Mot, i, 1)) Then dic(Mid(Mot, i, 1)) = dic.Count End If Next i If dic.Count Then ST = Join(dic.keys, " ") Else ST = vbNullString End If Salim_Letter = ST End Function جرب هذا الملف Remove_duplicate_letters.xlsm

البيانات تبقى كما هى بنفس الجدول Table2 يتم ترحيل البيانات الى الجدول tblTempData بدون اى تكرار اخطار التى تناسب احتياجاتك Correct data without duplication .mdb

مشاركة متواضعة مع أساتذتي العظماء للعلم فقط كان ممكن التصميم يقتصر على عدد 2 استعلام فقط وجدول لترحيل البيانات الصحيحة بدون تكرار ولكن حاولت حل المشكلة دون ان يكون تأثير على تصميمك يعنى التعديل فى الاخر بيتم ع الجدول الاساسى كما انه كان من الممكن الاستغناء عن كل الاستعلامات بكتابة جملة SQL لكل استعلام حسب ترتيبه على زر الامر ولكن حتى يسهل عليك التعرف على الافكار ببساطه Correct data without duplication_.zip

جرب افتح استعلام الالحاق في عرض التصميم ثم اجعل الفرز تنازلي لحقل الرقم القومي

هذه مشاركة مع اخي @kha9009lid تفضل dub_names.zip

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

السلام عليكم ربما لاحظت أن المعادلات لا تعمل مع شيتات الأشهر التي عدد أيامها لا تساوي 31 يوم... بمعنى آخر أن الجداول في هذه الشيتات غير متماثلة ... وفي الملفات المرفقة حلين ممكنين إما أن نطابق الجداول فنجعل عدد أعمدة أيام الشهر يساوي 31 عمود (من العمود D إلى العمود AH) ونحافظ على المعادلات التي وضعتها (الملف Attend-V5.xlms)، وإما أن نعدل كل المعادلات حسب عدد أيام كل شهر (وعدد أيام كل شهر تم جلبه من الخلية B4 من كل شيت من شيتات الأشهر) وتجد ذلك في (الملف Attend-V6.xlms). تم حذف العمود الفارغ AH من شيت June في هذا الملف... أرجو أن تفي الغرض المطلوب... بن علية حاجي attend-v5.xlsm attend-v6.xlsm

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

سؤال فقط الحقل sousf يضم أكثر من اسم ؟ يعني هل يضم فقط laptop أم يضم أكثر من اسم وحسب الاسم يتغير الحقل الخامس ؟

اتفضل Correct data without duplication (1).mdb

حيث انك لم ترفع ملف للمعاينة اليك هذا النموذج مع صورو عن التنتيجة 1-الاسماء في العامود B 2- عدد الحرف المطلوبة في العامود A 3- المعادلات في النطاق من C2 الىAF26 المعادلات في العامود A =IF($B2="","",SUM(IF(FREQUENCY(MATCH(MID(TRIM(SUBSTITUTE($B2," ","")),ROW(INDIRECT("1:"&LEN(TRIM(SUBSTITUTE($B2," ",""))))),1),MID(TRIM(SUBSTITUTE($B2," ","")),ROW(INDIRECT("1:"&LEN(TRIM(SUBSTITUTE($B2," ",""))))),1),0),MATCH(MID(TRIM(SUBSTITUTE($B2," ","")),ROW(INDIRECT("1:"&LEN(TRIM(SUBSTITUTE($B2," ",""))))),1),MID(TRIM(SUBSTITUTE($B2," ","")),ROW(INDIRECT("1:"&LEN(TRIM(SUBSTITUTE($B2," ",""))))),1),0)),1,0))) في النطاق من C2 الى AF26 =IF(OR(COLUMNS($A$2:A2)>$A2,$A2=""),"",MID(SUBSTITUTE(TRIM($B2)," ",""),SMALL(IF(FREQUENCY(MATCH(MID(TRIM(SUBSTITUTE($B2," ","")),ROW(INDIRECT("1:"&LEN(TRIM(SUBSTITUTE($B2," ",""))))),1),MID(TRIM(SUBSTITUTE($B2," ","")),ROW(INDIRECT("1:"&LEN(TRIM(SUBSTITUTE($B2," ",""))))),1),0),MATCH(MID(TRIM(SUBSTITUTE($B2," ","")),ROW(INDIRECT("1:"&LEN(TRIM(SUBSTITUTE($B2," ",""))))),1),MID(TRIM(SUBSTITUTE($B2," ","")),ROW(INDIRECT("1:"&LEN(TRIM(SUBSTITUTE($B2," ",""))))),1),0)),ROW(INDIRECT("1:"&LEN(TRIM(SUBSTITUTE($B2," ","")))))),COLUMNS($A$2:A2)),1)) صورة عن الملف الملف مرفق KARIM.xlsx

جرب هذا OFFICE.xls

لو تزودوني بنسخة 2007 حتى أقدر أشارككم بفكرة ثالثة تختمر في رأسي.

صحيح تفضل التعديل ارفاق الصور.zip

السلام عليكم ورحمة الله استخدم المعادلة التالية =LOOKUP(2;1/($B2:$E2<>"");$B2:$E2) او المعادلة التالية =INDEX($A$2:$E$5;MATCH(J3;$A$2:$A$5;0);LARGE(IF($B2:$E2<>"";COLUMN($B2:$E2));1))

عليكم السلام. أولاً: قم بوضع Combobox مربع سرد وتحرير ولا تقم بإعطاءه اي بيانات ثانياً: قم بوضع عدد الأعمدة فيه 2 ثالثاً: قم بوضع عرض الأعمدة 0;5cm رابعاً: في حدث ( عند مفتاح للأعلى ) أو ( KeyUp ) ضع الكود الآتي Private Sub comb_model_KeyUp(KeyCode As Integer, Shift As Integer) 'test number of characters entered - if greater then 2 then assign rowsource If Len(Me.comb_model.Text) > 2 Then 'set the rowsource to match user search criteria Me.comb_model.RowSource = "SELECT * FROM tbl_models WHERE model_name LIKE '*" & Me.comb_model.Text & "*'" 'show the search in real-time Me.comb_model.Dropdown Else 'set to no Me.comb_model.RowSource = "" End If End Sub

يمكنك استخدام هذه المعادلة =INDEX($B$2:$E$5,MATCH($J3,$A$2:$A$5,0),COUNTA(B2:E2)) البحث عن اخر قيمة فى الصف.xlsm

وعليكم السلام -يمكنك تحميل هذا من هنا فلا يحتاج الى تفعيل https://www.4shared.com/rar/vx1cv9Hxca/KutoolsforExcel1650.html وهذا رابط اخر http://www.mediafire.com/file/xcvjc4oywbvonda/Kutools.for.Excel.16.50.rar/file

اخوانى الكرام خبور خير ، ziad ali اشكركما على المجهود الرائع واستجابتكما السريعة فعلا عمل رائع خاصة ما تفضل به الاخ الكريم خبور خير من تحويل المعادلات الى قيم حيث ان عدد المعادلات فى الملف الخاص بى سيصل الى 39420 معادلة مما سيؤدى الى بطء شديد عند تغيير اى من القيم المرتبطة بالمعادلات اخوانى الكرام هل يمكن تنفيذ ذلك من خلال الكود Application.WorksheetFunction.SumProduct دون ان تظهر رسالة الخطأ type mismatch وايهما اسرع فى التنفيذ طريقة الكود Application.WorksheetFunction.SumProduct ام طريقة المعادلات .Formula = "=SUMPRODUCT((R5C1:R30C1=RC5)*(R5C2:R30C2=R5C),R5C3:R30C3)" واشكر لكما اهتمامكما مرة اخرى.

اخواني اعضاء المنتدي هل بالامكان افادتي عن الكود الذي يقوم بإخفاء الرسائل الخاصة بالاستعلامات الجرائية "الحاق, حذف , تحديث" فانا اريد اخفاءها عن طريق الكود وليس عن طريق الخيارات وقد قمت بتجربة الامر Echo بدون فائدة ... مع الشكر لكم جميعا..

السلام عليكم ورحمة الله وبركاته اخواني اعضاء المنتدي الاعزاء ارجو منكم التكرم بمساعدتي في الحصول علي الاكواد اللازمه لعمل برنامج لتوقيع الحضور اليومي (يشمل اسماء الموظفين - رقم الموظف - وقت الحضور -والحاله ( اذا كان متاخر او غائب) علما بانني حاولت بمجرد ادخالي رقم الموظف احصل علي الاسم ولكن تعذر ذلك حيث صادف وجود ارقام الموظفين واسمائهم تظهر لي في الفورم ويتوجب علي ادخال الوقت ) والذي اريده هو العكس بمجرد ادخالي رقم الموظف اريد ان يسجل لي البرنامج اسم الموظف ووقت الحضور ؟ ولكني لم استطع ذلك .......... فارجو التكرم بالمساعده وجزاكم الله الف خير عني ....

السلام عليكم لقد قمت بعمل برنامج يخص الحضور والإنصراف أثناء الدوام الرسمي ووضعت عليه أمان على حسب مستوى الصلاحية وهو يعمل على جهازي الخاص ، ولكن بعدما قمت بعمل الربط ( sharing) مع جهاز آخر عن طريق الشبكة ( نتورك ) ووضعن ( شورت كات ) من البرنامج و ( شورت كات ) من ملف الآمان في جهاز آخر لم يعمل البرنامج وتظهر لي رسالة مفادها أن مسار الملف غير صحيح، فما هي أفضل طريق للربط بين جهازين بشرط أن يكون الملف الرئيسي على جهاز واحد والجهاز الآخر يكون به ( شورت كات ) فقط . مع تحيات أحمد

بسم الله الرحمن الرحيم سؤال حاولت جاهدا ان اعرف اجابته عن طريق الكتب ولكنى لم اتوصل الى اجابة عندى حقل مخصص للقيم الرقمية ولنفترض ان اسمه (fld1) وحقل اخر (fld2) قيمته هى:- fld2=fld1/60 المشكلة بالنسبة لى:- اذا قمت بقسمة مثلا 95 على 60 فالناتج يكون 1.58333333333333333333 الذى اريده القيمة الناتجة هى 1.58 اى رقمين فقط بعد العلامة وشكرا

السلام عليكم ورحمة الله وبركاته أقوم حالياً بتصميم برنامج لإصدار فواتير الماء لغرض تسليمها للمستهلكين لإشعارهم عن إستهلاكهم بصورة شهرية ، كما هو الحاصل لدى شركات توزيع المياه والقاعدة مكونة من الجداول الأتية :- أولاً: جدول بيانات المستفيدين رمز المستفيد (حقل ترقيم تلقائي) ، اسم المستفيد (حقل نص) ، رمز المدينة (حقل نص) ، رقم العداد (حقل رقمي) ثانياً: جدول المدن رمز المدينة (حقل ترقيم تلقائي) ، اسم المدينة (حقل نص) ثالثاً: جدول القراءات أو الفواتير رقم الفاتورة (حقل ترقيم تلقائي) ، رمز المستفيد (حقل رقمي) ، قراءة العداد السابقة (حقل رقمي) ، قراءة العداد الحالية (حقل رقمي) ، تاريخ أخذ القراءة (حقل تاريخ) ، رسوم أخرى (حقل رقمي) ، المبلغ المستلم (حقل رقمي) Customer مشكلتي أشرحها في الأسطر التالية : فلنفرض أن أحد المستفدين جاءت قراءة عداده على النحو الأتي : يناير = 1000 وحدة فبراير = 1520 وحدة مارس = 2460 وحدة أبريل = 6200 وحدة مع العلم أن سعر الوحدة = 0.0010 بيسه حيث أن معادلةالإستهلاك = (القراءة الحالية – القراءة السابقة) x 0.0010 بيسه إذاً حساب إستهلاكه سيكون كتالي : يناير = 0 – 1000 = 1000 x 0.0010 = 1 ريال واحد فبراير -= 1520 – 1000 = 520 x 0.0010 = 0.52 بيسه مارس = 2460 – 1520 = 940 x 0.0010 = 0.94 بيسه (لم يدفع هذه الفاتورة) أبريل = 6200 – 2460 = 3740 x 0.0010 = 3.74 ريالات المطلوب : أفرض أن المشترك لم يدفع فاتورة شهر مارس لذا أود أن يأتي إستعلام فاتورة شهر إبريل بأنه توجد عليه مستحقات سابقة وقدرها (0.94 بيسه) لم يدفعها ، وهكذا يكون الحال مع أي فاتورة لأي شهر بمعنى أخر أرغب أن أطبع شهرياً لكل مستفيد فاتورة ، مثل فاتورة شهر إبريل الموضحة في الأتي : اسم المستفيد المدينة رقم العداد القراءة السابقة = 2460 وحدة تاريخ أخذ القراءة السابقة القراءة الحالية = 6200 وحدة مستحقات الشهر الحالي = 3.74 ريالات مستحقات سابقة = 0.94 بيسة رسوم أخرى = 0 ريال إجمالي المستحقات المطلوبة = 16.68 ريالات فهل يمكن ذلك أطال الله في عمركم كما يحصل في الفواتير التي تصدرها شركات المياه إلى المستهلكين ، وماهي الطريقة ؟ هل تصميم الجداول مناسب ؟ يمكن إنزال الملف من هنا والله يوفق الجميع

السلام عليكم ورحمة الله وبركاته اساتذتي الاكارم عندي سؤال اريد ان ادخل التاريخ لبداية الاجازة وتاريخ نهاية الاجازة في الحقل الثالث اريد ظهور عدد الايام مثال : في الحقل الاول تاريخ 08/10/2003 بداية الاجازة في الحقل الثاني 15/11/2003 نهاية الاجازة في الحقل الثالث اريد ان يظهر عدد ايام الاجازة وشكرا مقدما اساتذتي الافاضل

السلام عليكم هذه اداة اضافية وجدتها من شخص اسمه Hosain21 في بوابة العرب تقوم باستيراد النماذج والتقارير من قاعدة بيانات بتنسيق MDE الى قاعدة بيانات بتنسيق MDB هذا رابط التحميل الاول http://www.freewebs.com/psdk/mdex.zip والثاني هنا http://www30.brinkster.com/alhajri/mdex.rar امل ان تجدوا طريقه لردعها والا لن تكون هناك حماية كافية لل MDE :cry:

حديث حول المتغيرات فى VB - لأبي هاجر أولاً : هل يجب تعريف المتغيرات ؟ لو حاولت استخدام أي متغير في الكود الذي تكتبه فإن أكسس سيعرض عليك رسالة خطأ تفيد بأن هذه المتغير غير معرف ، مع ذلك فإن تعريف المتغيرات ليس أمراً إلزاميا ففي أعلى كل وحدة نمطية سواء كانت هذه الوحدة عامة أم خاصة بنموذج أو تقرير ستجد العبارة التالية : Option Explicit وهي تخبر أكسس VB يجب تعريف المتغيرات ولو حذفت هذه العبارة فلن يتغير شيء في برنامجك سوى أنك لن تكون ملزماً بتعريف المتغيرات هذا يقودنا إلى النقطة الثانية ثانياً : إذاً لماذا نقوم بتعريف المتغيرات رغم أن تعريف المتغيرات يعني مزيداً من الأسطر ومزيداً من الجهد إلا أن فوائد تعريف المتغيرات تجعل منه أمراً ضرورياً لا سيما مع البرامج الكبيرة ومن هذه الفوائد ما يلي : 1- يؤدي عدم تعريف المتغيرات إلى حجز المتغير قدراً كبيراً من ذاكرة الجهاز مما يؤثر على عمل البرنامج 2- يساعد تعريف المتغيرات بشكل كبير على تتبع الأخطاء 3- يضمن عدم استخدام أكثر من متغير بنفس الاسم وفي نفس المجال الزمني وهو الأمر الذي قد ينتج عنه أخطاء يصعب اكتشافها ثالثاً : المدى المكاني للمتغيرات أقصد بهذه النقطة أننا عند تعريف متغير فأين نستطيع استخدامه هناك ثلاث فئات من المتغيرات : 1- المتغيرات التي يتم تعريفها داخل الدالة أو الإجراء الفرعي وهذه يمكن استخدامها داخل الدالة أو الإجراء الفرعي فقط ولا تستطيع إسناد قيم لها بحيث تستدعي هذه القيم من خارج الدالة أو الإجراء مثال : Public Function fun1() Dim a As String a = "كيف الحال؟" End Function Public Function fun2() MsgBox a End Function عند استدعاء الدالة fun2 سيعرض البرنامج رسالة خطأ تفيد بأن المتغير a غير معرف 2- المتغيرات التي يتم تعريفها في أعلى الوحدة النمطية الخاصة بالنموذج أو التقرير وهي ما يسمى بمنطقة التعريفات هذه يمكن استخدامها داخل النموذج أو التقرير ولا يمكن استخدامها في نموذج أو تقرير آخر وهذه تعرف عادة باستخدام العبارة Dim مثل Option Compare Database Option Explicit Dim myvar As Integer 3- المتغيرات التي يتم تعريفها داخل الوحدات النمطية العامة يمكن استخدامها في أي مكان من البرنامج وهذه تعرف عادة باستخدام العبارة Public أما إذا عرفت باستخدام العبارة Private فيمكن استخدامها من داخل الوحدة النمطية فقط وكذلك لو عرفتها باستخدام العبارة Dim بقي أن أشير إلى أن العبارة Static تستخدم عادة لتعريف المتغيرات التي نريد أن تحافظ على قيمتها عند استدعائنا لها عدة مرات الأمر المهم هنا هو ضرورة استخدام هذه الأنواع بدقة لا سيما المغيرات العامة حيث يتم تحميلها عند تشغيل البرنامج وتبقى محملة في الذاكرة حتى يتم إيقاف البرنامج ، وهذا يؤثر على عمل البرنامج بلا شك ، أضف إلى ذلك أن الأسماء التي تستخدمها لتلك المتغيرات العامة يجب أن تكون فريدة حتى لا يحدث تعارض بينها وبين بعض المتغيرات الأقل مدى رابعاً : أنواع المتغيرات يحتوي الأكسس على عدد كبير من المتغيرات التي يصعب حتى ذكرها هنا فضلاً عن شرحها لكن يمكنك الاطلاع عليها عن طريق القائمة التي يتم عرضها بعد أن تكتب عبارة As أثناء تعريفك لمتغير ما وهذه المتغيرات منها ما هو عام يمكن استخدامه في لغة VBA في أي من برامج أوفيس ومنها ما هو خاص بأكسس VB وهذه في الغالب هي المتغيرات المتعلقة بتعريف كائنات أكسس أي الجداول والاستعلامات والنماذج وغيرها وسأعرض هنا قائمة بالمتغيرات العامة في لغة VBA وهي موجودة أيضاً في أغلب لغات البرمجة وهي : Boolean قيمة False ,True Byte بايت Integer عدد صحيح Long عد صحيح طويل Currency عملة Double رقم مزدوج String سلسلة Date تاريخ Variant غير محدد النوع هذه هي أنواع المتغيرات الأكثر شهرة واستخداماً ويجب استخدامها بدقة إذ يودي الاختلاف بين نوع المتغير والقيمة المسندة إليه إلى خطأ أثناء تنفيذ البرنامج فالعبارة التالية خطأ Dim a as integer A= "name" وكذلك العبارة التالية Dim a as integer A = 50000 لأن أكبر رقم يمكن أن يحتويه متغير من نوع Integer هو 32767 وهكذا هذه نبذة مختصرة عن تعريف المتغيرات ==== تم ====

هذا الشرح لأبي هاجر أقدم لكم شرحا مبسطاً عما يسمى بدوال تدفق البرنامج وهي الدوال التالية : دالة Choose تستخدم دالة Choose من أجل تحويل قيمة حقل من رقم إلى نص أو بمعنى آخر لنفترض أن لديك في الجدول حقلاً يحتوي على قيم رقمية ابتداء من 1 حتى 6 مثلاً وكل رقم تستخدمه في الدلالة على شيء معين مثلاً 1 يعني سعودي 2 يعني مصري وهكذا بالطبع حين تريد عرض هذه القيم للمستخدم فإنك تحتاج إلى تفسيرها أي تحويلها إلى نص في هذه الحالة فإنك ستحدد الحقل الذي يحتوي على الأرقام في متغير الفهرس بالنسبة للدالة وترتب القيم النصية حسب ما يعنيه كل رقم بالترتيب وتستخدم دالة Choose بالصيغة التالية : Choose(index, value1, value-2, value-3) حيث index هو الحقل أو المتغير الذي يحتوي على الفهرس value1, value-2, value-3 القيم 1 و2 و3 بحسب ما تستوعبه الدالة وهي تستوعب متغيرات بطول 255 حرفاً في حالة وجود قيم في الفهرس أصغر من 1 أو أكبر من القيم المحددة فإن الدالة ترجع قيمة خالية NULL دالة Switch تستخدم دالة Switch بنفس الطريقة التي تستخدم بها عبارة Select Case أي تبدأ بشرط ثم قيمة ثم شرط ثم قيمة وهكذا فإذا تحقق الشرط 1 أرجعت الدالة القيمة 1 وإذا تحقق الشرط 2 أرجعت الدالة الشرط 2 وهكذا أما إذا لم يتحقق أي من الشروط فإن الدالة ترجع قيمة خالية NULL وتستخدم دالة Switch بالصيغة التالية : Switch(expr-1, value-1, expr-2, value-2, expr-3,value-3) حيث expr هو الشرط و value القيمة التي سيتم عرضها عند تحقق الشرط السابق لها دالة IIF تستخدم دالة IIF بنفس الطريقة التي تستخدم بها عبارة If then else حيث يتم تمرير شرط واحد وقيمتين إلى الدالة فإذا تحقق الشرط فإن الدالة ترجع القيمة الأولى أما إذا لم يتحقق فإن الدالة ترجع القيمة الثانية وتستخدم دالة IIF بالصيغة التالية IIf(expr, truepart, falsepart) حيث expr هو الشرط و truepart القيمة التي ترجعها الدالة عند تحقق الشرط و falsepart القيمة التي ترجعها الدالة عند عدم تحقق الشرط

بسمه تعالى الى اخواني في هذا المنتدى الطيب طلب مني عمل منظومة لمؤسسة تعليمية المؤسسة لديها واردات من اجور الطلبة ودورات التقوية ولديها مصروفات هي 1- اجور المدرسين 2- اجور موظفي الادارة 3- القرطاسية 4- الكهرباء 5- الماء 6- الهاتف 7- اخرى الرجاء المساعدة في عمل جداول لهذه المنظومة واذا كان اي شخص لديه منظومة مشابهة ممكن الاستفادة منها نكون له من الممنونيين ودمتم