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

ومشاركه مع اخوانى بداله Dcount مع التاريخ محاوله منى على قدى بالتوفيق اخى نظام وارد-1.accdb

السلام عليكم بعد اذن الاستاذ Khalf مثال بدالة Dlookup تخياتي نظام وارد2.rar

السلام عليكم الحمد لله تم عمل المطلوب وذلك باضافة شرط اخر للمعادلة =IF(AND(COUNTIF($D$3:$D$8;$BP$5)>1;D3=$BP$5);TRUE;FALSE) جزاكم الله خيرا وشكرا لجهود الاساتذة الذين فتحوا الملف وارادوا مساعدتي ولكن اعتقد طرحي للسؤال لم يكن بالشكل الصحيح ولذلك تاخر الاساتذة بالرد والاّ جوابه بسيط جدا تحياتي لكم ووافر احترامي معادلة التنسيق الشرطي للمكرر حسب خلايا محددة.xls

السلام عليكم ورحمه الله وبركاته جزاك الله خيرا اخى واستاذى @jjafferr اخى الفاضل @Khalf وانا ابحث عن موضوعات لتعلم DAO وجدت هذا الموضوع Import or Export Data from Access to Excel فى طريقى فتذكرت موضوعك هذا فاحببت ان اشارككم اياه للاستفاده ولعلك تجد به شىء يساعدك فيما تبحث عنه تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

الدالة الغبية والدالة العبقرية الدالة () DLookup والدالة () ELookup هل تصدق ان هناك دالة غبيه قد تستغرب ان اقول لك انها دالة () DLookup والكل منا يعرفها ويعرف استخداماتها فهي ببساطة تعيد او تسترجع قيمه واحدة من الجدول . عيوبها : 1. تعيد اول قيمة فقط تم وضعها في الدالة في عملية البحث . 2. لا تستطيع بإي حال من الاحوال اعادة الحقل المفهرس . 3. قد تحصل على نتائج متناقضة ومتقلبة حتى من نفس نوع البيانات التي تبحث عنها اذا كان لا يوجد مفتاح اساسي في الجدول وقمت بعملية ضغط قاعدة البيانات . ( جرب بنفسك وأنظر النتائج الغبية التي تعطيك هذه الدالة ) . 4. اداء هذه الدالة سيئ للغاية فهو لا يقوم بمسح ما تم البحث عنه سابقا ويفترض ان تكون القيم خالية بعد عملية كل بحث . 5. ظهور العديد من الاخطاء والرسائل من الاكسيس عندما تكون القيم خاليه . الدالة () ELookup العبقرية هل احد منكم سمع عن هذه الدالة ( دالة جديده تم اختراعها ) لنرى إمكانات هذه الدالة 1. قمة في الاداء والابهار والقوة والمتانة والمرونه . 2. تسمح لك بتحديد اي نوع من البيانات ولا تتقيد يحقول معينه . 3. تسمح لك بإستخدام الاقل MIN والاعلى MAX من القيم . 4. بعد عملية البحث والبدء بعملية استخدام جديده تجد القيم خالية وجاهزة لتقبل اي امر . 5. اسرع من الدالة () DLookup بعشر مرات . 6. قد ترغب في تعديل مسار البحث قبل استعمال الدالة فتستطيع ذلك بدون ظهور رسائل MsgBox لكل صف . 7. تقوم هذه الدالة بتمييز وتحسس ومعرفة ان هذا الحقل Zzero-length( طول صفري ) او خالي من البيانات Null . 8. اذا استخدمت في الاستعلامات فأنظر الى النتائج الباهره حتى لو استخدمت معها اربعة معايير مختلفه . قد يكون عيبها الوحيد انها تحتاج الى مكتبة DAO وهذا ليس بعيب ولكن لانها ليست من دوال برنامج الاكسيس . امثلة على طريقة استخدامها 1. ايجاد القيمة الاخيرة متضمنة الـ DESC ELookup("[Surname] & [FirstName]", "tblClient", , "ClientID DESC") اذا رغبت في اضافة حقول اضافية قم بالاضافة فهي تقبل جميع الحقول ولا تقتصر على حقل معين 2. ايجاد القيم الاقل الغير خالية Null بإستعمال المعايير ELookup("ClientID", "tblClient", "Surname Is Not Null" , "Surname") واليكم الدالة الجباره بكل معنى الكلمة ويفضل مقارنة نفس النتائج مع الدالة السابقة لتروا الفرق كل ما عليك هو وضعها في وحدة نمطية ومن ثم استخدامها سواء في النماذج او الاستعلامات او التقارير او الماكرو . Function ELookup(Expr As String, Domain As String, Optional Criteria, Optional OrderClause) On Error GoTo Err_ELookup ' DAO ملاحظة: تحتاج الى مرجع مكتبة Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSql As String 'بناء جملة الاستعلام strSql = "SELECT TOP 1 " & Expr & " FROM " & Domain If Not IsMissing(Criteria) Then strSql = strSql & " WHERE " & Criteria End If If Not IsMissing(OrderClause) Then strSql = strSql & " ORDER BY " & OrderClause End If strSql = strSql & ";" 'البحث عن القيم Set db = DBEngine(0)(0) Set rs = db.OpenRecordset(strSql, dbOpenForwardOnly) If rs.RecordCount = 0 Then ELookup = Null Else ELookup = rs(0) End If rs.Close Exit_ELookup: Set rs = Nothing Set db = Nothing Exit Function 'zahrah Err_ELookup: MsgBox Err.Description, vbExclamation, "ELookup Error " & Err.Number Resume Exit_ELookup End Function

ومشاركة مع الزملاء الكود Private Sub znumbers_BeforeUpdate(Cancel As Integer) Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("wared") Rs.MoveFirst Do Until Rs.EOF If Rs!znumber = [znumbers] And Rs!zdate = Me.zdates Then MsgBox "يجب ألا يتكرر تاريخ ورقم الكتاب معاً", vbExclamation Me.Undo Cancel = True End If Rs.MoveNext Loop Set Rs = Nothing End Sub نظام وارد.saleh101.accdb

السلام عليكم انظر للصورة اخي الكريم

وعليكم السلام على منا فاهم فالكود فانت جعلت قيمه mony2 = نص فاذا جمعت رقم على نص فكيف يكون ولنفرض قيمه mony2 = 100 + القيمه الاولى = 10 الناتج سيكون 10010 اذا كان حقل mony2 ضعه كما هو من غير علامات التنصيص واذا كان حقل نصى فاستخدم داله لتحويله لرقم ليتم الجمع مثلا val(mony2) والاوجب ارفاق ملف تقبل تحياتى طبتم واهتديتم

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

تفضل-كان عليك استخدام خاصية البحث بالمنتدى جعل ملف الأكسل مشترك على اكثر من جهاز ادخال بيانات في ورقة اكسل من اكثر من شخص في نفس الوقت وهذه فيديوهات ايضا للشرح مشاركة ملفات الاكسل على الشبكة Excel Online Share مشاركة ملف اكسل مع اكثر من شخص sharing an Excel file with more than one person

جزاك الله خيرا اخى خالد اخى الفاضل @eng aoff هل اطلعت على الرابط ده ؟

السلام عليكم الطريقة التي ألجأ إليها: ١- عمل حقل من نوع مذكرة. ٢-في حدث بعد التحديث لكل من حقل -رقم الوارد - جهة الوارد- تاريخ الكتاب الوارد أضع الأمر التال Me.Haql_almozake=me.number &" "& me.Name&" "&me.date وفِي خصائص الحقل في الجدول، اجعله مفهرساً والتكرار غير مقبول. فاتني أن أذكر طريقة أخرى: اجعل كلاً من حقل الرقم والجهة مفتاحاً أساسياً وعندها سيمنع التكرار على أساس قيمتي الحقلين.

جزاكم الله كل خير أستاذ @أحمد الفلاحجى

ضع هذا الكود قبل التحديث وغير مسميات الجداول والحقول Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("[اسم الحقل]", "اسم الجدول", "[اسم الحقل]='" & Me!اسم الحقل في النموذج & "' AND [اسم الحقل الثاني]='" & Me!اسم الحقل الثاني في النموذج & "'AND [اسم الحقل الثالث]='" & Me!اسم الحقل الثالث في النوذج & "'") > 0 Then MsgBox "duplicated fields", vbExclamation Me.Undo Cancel = True End If End Sub

اخي العزيز انظر للرابط https://www.officena.net/ib/topic/62366-كيفية-عدم-تكرار-اكثر-من-حقل-في-بيانات-اكسس/ نقس الموضوع

جرب المرفق لعل فيه ما تريد... تحكيم الصافنات1.rar

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

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

تفضل لقد قمت بالتعديل على الملف ليقوم بضغط الواجهة مباشرة دون ظهور خيارات أخرى mas_backup2.mdb

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

فقط عليك استخدام هذه المعادلة =COUNTIF($B8:$AF8,$NU$5)/4 أو عن طريق معادلتك بعد القسمة على 4 لتكون بهذه الطريقة =SUMPRODUCT((OFFSET($A8,0,1,1,372)<>"")*(OFFSET($A$3,0,1,1,372))*((OFFSET($A8,0,1,1,372))=NU$5))/4 leave tracker.xlsb

راجع المرفق التالي بارك الله فيك UserLog.rar تحياتي

برنامج للامانة لا اعرف من قام بتصميمه اضعه بين ايديكم للفائدة مثال للتعامل مع الصور.accdb

تم التعديل في الكود كان يزيد العدد بمقدار 10 والمفترض 3 شهادات.xlsm

هذا مثال للكود قم باختيار القاعدة و اضغط على زر الضغط و لاحظ النتيجة Compact.accdb

وعليكم السلام ممكن عملها باكثر من طريقة الطريقة الاولى في المرفق في النموذج المسمى table تم عملها بدون استخدام اكواد عن طريق منشئ التعبير مع الاستعانة بمربعات نص غير منظمة ووضع تعبير مشروط اذا كانت خانة الاختيار =-1 تكون قيمة مربع النص تساوي القيمة الفعلية للحقل واذا كانت خانة الاختيار غير مؤشر عليها "صفر" تكون قيمة الحقل الغير منظم تساوي صفر وهكذا لبقية الحقول ثم جمعنا مربعات النص الغير منظمة للحصول على النتيجة الطريقة الثانية في النموذج المسمى جدول1 عملنا زر امر عند النقر يقوم بحجز متغيرات واستخدمنا كود بواسطة دالة IIF وبنفس الفكرة السابقة ولكن بدلا من مربعات النص غير المنظمة استخدمنا المتغيرات ممكن عملها بطريقة اخرى ولكن في اعتقاد هذة اسهل الطرق للحصول على النتيجة والله اعلم aa.accdb

السلام عليكم هناك العديد من الطرق و هناك العديد من الأمثلة في المنتدى لهذا الأمر و من بينها هذا الكود: Dim new_Data As String Dim old_Data As String old_Data = CurrentProject.Path & "\DB.accdb" 'اسم و مسار قاعدة البيانات المراد ضغطها new_Data = CurrentProject.Path & "\DB_compact.accdb" Set acc2007 = CreateObject("DAO.DBEngine.36") acc2007.CompactDatabase old_Data, new_Data, Nothing, Nothing Set acc2007 = Nothing Kill old_Data Name new_Data As old_Data MsgBox "لقد تم ضغط القاعدة بنجاح"

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

تفضل راجع هذه الروابط فبها ما طلبت -فهذا افضل بالتأكيد بأن تعمل وتحاول لكى تتعلم تحويل معادلة صفيف إلى كود تحويل المعادلات إلى أكواد VBA

السلام عليكم ورحمة الله وبركاتة هذا المثال / للأستاذة زهرة العبدالله عن الدالة DLookup_ELookup وأضعه هنا بناء على طلب احد الاعضاء لأن طلبه كان في موضوع قديم جدا للاستاذة ::بالتوفيق للجميع :: za_DLookup_ELookup.rar

جزاكم الله خيرا اخى الحبيب واستاذى الكريم استاذ @kaser906

::بالتوفيق::

اعرض الملف الاتصال بالجداول الخلفية لقاعدة بيانات او اكثر من قاعدة والتنقل بينهم السلام عليكم ورحمة الله تعالى وبركاته اهديكم واضع بين اياديكم هذا المثال والذى من خلاله يتم الارتباط بقاعدة / او عدة قواعد خلفية دفعة واحدة والتنقل فيما بينهم برمجيا آلية العمل -عمل اختبار للاتصال بالقاعدة الخلفية وإذا فشل الاختبار ينتقل للمرحلة التالية - البحث اليا عن المجلد الاصلى بجوار قاعدة البيانات الامامية فى حالة وجوده يرتبط اليا بجميع القواعد بداخله بمجرد الموافقة على ذلك من خلال الرسالة أو يمكنك تغير المسار للبحث بنفسك واحضار قاعدة الخلفية او القواعد إن زاد عددهم عن واحدة بمجرد اختيار المجلد الموجودة به -المرجلة التالية هى تأكيد واختيار القاعدة /أو القواعد والتى تخص هذه القاعدة الأمامية -المرحلة التالية بعد تأكيد اختيار القواعد فى هذه المرحلة والأخيرة نختار القاعدة التى نتصل بها وان كانت تحتوى على كلمة مرور نكتبها فى المكان المخصص لذلك وهنا على سبيل المثال قاعدة الخلفية ArchivingTables2018 تم عمل باسورد لها للتجربة وهو 2018 اما القاعدة ArchivingTables2019 لم يتم عمل باسورد لها وكما تشاهدون فى الصورة تم التنقل بكل سهولة وبكل اريحية بين القاعدتين هناك ميزة اخرى ولكن لم استطع تجربتها وهى الاتصال كذلك بجهاز كمبيوتر اخر والذى يحتوى على قاعدة الخلفية فى حالة الشبكة المحلية وذلك بكتابة اسم مستخدم الجهاز كلمة المرور المخصصة للاتصال بالجهاز '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' _ +--officena------oOo-------oOo--------+ _ ' ' /o)| |(o\ ' ' / / | منتــديات اوفسيـنا | \ \ ' ' ( (_ | _ _ | _) ) ' ' ((\ \)+-/o)----oOo----oOo---------------(o\-+(/ /)) ' ' (\\\ \_/ / \ \_/ ///) ' ' \ / \ / ' ' \____/ \____/ ' ' ===============================oOo----oOo============ ' ' ----{ By Mohammed Essam )---- ' ' ----{ www.officena.net/ib/profile/129737-ابا-جودى )---- ' ' ======================oOo-------oOo================== ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' فى انتظار تجربتكم وابداء آرائكم القيمة وأبداعاتكم بأفكاركم الرائعة ☺ Automatically relink Access tables.rar Automatically relink Access tables.zip صاحب الملف ابا جودى تمت الاضافه 31 مار, 2019 الاقسام قسم الأكسيس

حياك الله ابو ياسين ان كنت تقصد ان تحل دالة الادخال مكان مربع حوار البراميتر اعمل دالة عامة في وحدة نمطبة عامة ومثلا function xf() xf=inbutbox("ادخل المعيار") end function وفي الاستعلام وفي معيار اي عمود اكتب ()xf سيظهر مربع الدالة وحسب القيمة المدخلة ستكون قيمة للمعيار بالتوفيق

تفضل 3 طرق لتصفح الانترنت من الاكسس ، والبحث عن اسم الطالب في Google.com . وهذا كود الازرار: Private Sub cmd_FollowHyperlink_Click() url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" Application.FollowHyperlink url_address & Me!name End Sub Private Sub cmd_ie_Click() Dim ie As Object Set ie = CreateObject("internetexplorer.application") url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" ie.Visible = True ie.Navigate url_address & Me!name End Sub Private Sub cmd_objIE_Click() 'Reference to Microsfot Internet Controls 'c:\windows\system32\ieFrame.dll Dim web As WebBrowser Set web = Me.objIE.Object url_address = "http://www.google.com/search?lr=lang_ar&cr=&hl=ar&ie=windows-1256&oe=windows-1256&q=" web.Silent = True 'stop script errors web.Navigate url_address & Me!name End Sub جعفر 255.web.accdb.zip

هذا الكود يسمح لك بتحديد الخلية المحمية فقط دون ان يسمح بأي اجراء عليها(حذف--- تعديل---نسخ ---الخ) و يخفي المعادلة ايضاً و لا يأخذ بالحسبان الا المعادلات ( جربه و اعطني رأيك) Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With With ActiveSheet .Protect .EnableSelection = xllockedCells End With End If End Sub

الاخت الكريمة بغداد : يفضل ان تفتحي موضوعا جديدا بسؤالك استاذنا العزيز رمهان : لانه ادخل السجل الحالي ضمن العد وحسب الحقول الثلاثة التي ليس بها اي تعديل ! نعم بالفعل هذا السجل معدود ضمن سجلات الجدول المسألة حدثت كالتالي : حين يبدأ المستخدم بادخال البيانات يكون عدد السجل الحالي (count) = صفر لانه لم يتم تحديث النموذج بعد ولكن حين يعود المستخدم مرة اخرى يكون عدد السجل داخل مجموعته =1 والشرط في الكود يمنع التحديث اذا كان اكبر من صفر وهنا لن يقبل اكسس اي تغيير على الحقول الاخرى ولكن : لاحظ انه يمكننا تغيير الحقول التي طبقنا عليها شرط التكرار ( بشرط الا يكون لها شبيه داخل الجدول ) وحينها اي بعد التعديل على احد الحقول المشروطة سيمنحنا اكسس حق التعديل على باقي الحقول اليست هذه ميزة فريدة وتؤخذ بالاعتبار ؟ اخي العزيز رمهان اخواني الكرام : نقاشنا هنا يخص فيما لو استخدمنا نموذج عرض البيانات واستخدمناه لادخال البيانات اما حين نستخدم نموذج ادخال البيانات سينقطع هذا النقاش لانه بعد تحديث النموذج لن نجد امامنا بيانات نعدل عليها

الاستاذ الجليل ابا خليل والله لا ايحاءات ولا شئ ! ذكرت ان بعض الاخوة وقع في الفخ كما وقعت فيه انا ! وهنا لا يوجد ايحاء بل شي صريح ! لذلك يبدو لي ان المشكلة لم تتضح لك بعد والله اعلم ! ( اسميتها مشكلة عشان خاطرك بدلا من فخ ) اريدك ان تطبق معي الاتي وبعد قبلة على رأسك : افتح المرفق الذي بالمشاركة رقم 5 . اذهب للحقل "هامش الكتاب" وفي السجل 1 واكتب اي شي ثم اخرج من السجل ستظهر رسالة التكرار وانت لم تمس اي من الحقول الثلاثة التي بها شرط التكرار ( رقم الكتاب والموضوع وجهة الارسال ) . النظام يقول تكرار لانه ادخل السجل الحالي ضمن العد وحسب الحقول الثلاثة التي ليس بها اي تعديل ! بس هذه المشكلة وانا خاضع بين يديك لترشدني ان كنت ضالا ! تحياتي

هنا تم استخدام معرف السجل للمقارنة وباستثناء السجل الحالي ! اتمنى ان وصلت الفكرة تماما ! وهو لما تريد الاخت السائلة ! بالتوفيق New Microsoft Access قاعدة بيانات.rar

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

اخي الاستاذ اباخليل تفضل هذا تطبيق للكود السابق والخلل ! حاول ان تعدل على سجل محفوظ مسبقا ! وفي حقل هامش الكتاب مثلا ! المسألة هي تنبيه فقط وجل من لا يغفل ! تحياتي New Microsoft Access قاعدة بيانات.rar

شكرا استاذ رمهان والله يكفينا شر الافخاخ هل تقصد ان الافضل ان يكون الحدث بعد التحديث ؟ Private Sub Form_AfterUpdate() ؟؟؟؟؟؟؟؟؟؟؟؟؟؟ End Sub واذا الخلل موجود ايضا كما تفضلت ففضلا منك ان ترفق مثالا تجريبي يظهر لحظة الخلل ولا تنسى استاذنا يكون على 2003 وفقك الله لكل خير

الاستاذ ابا خليل انبه فقط ان طريقة حساب عد السجلات مقارنة بقيم السجل الحالي لا تخرجك من فخ السجل الحالي وخاصة عند الحدث قبل التحديث وهو ما اسميته في اكثر من مكان "فخ السجل الحالي" . وقد وجدت اغلب الاخوان وفي اكثر من مكان يقعون في هذا الفخ ! وهنا وفي هذا الرابط شرح اكثر ومع مثال http://www.officena.net/ib/index.php?showtopic=61342&hl= تحياتي

Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("[field1]", "table1", "[field1]='" & Me!txt1 & "' AND [field2]='" & Me!txt2 & "'AND [field3]='" & Me!txt3 & "'") > 0 Then MsgBox "duplicated fields", vbExclamation Me.Undo Cancel = True End If End Sub

اخي سهل سهل الله لك طريقاً للجنة اخي حسن الحلو وفقك الله لكل خير

بسم الله الرحمن الرحيم هذا أيضا برنامج للمتبرعين وسوف يفيدك إن شاء الله وتقبل تحياتي أخيك سهل أحمد ( ابو نعيم ) Motbareen.rar

اخي الكريم أبو نعيم لا املك لك الا الدعاء بظهر الغيب

بسم الله الرحمن الرحيم هذا أول وبرنامج وسوف تجد به التالي 1- شؤون الأيتام أ- شاشة أيتام غير مكفولين ب - أحصائية الأيتام ج - أيتام لم يستلموا أستحقاقاتهم د - أيتام أستلموا أستحقاقاتهم هـ - أضافة يتيم و - أستلامات يتيم 2- شؤون الكفلاء أ - شاشة الكفلاء وأيتامهم ب - شاشة أضافة كفيل ج - شاشة أضافة وسيط د - شاشة الوسطاء وكفلائهم 3- الشؤون المالية أ - شاشة صرف ب - شاشة أستلام ج - شاشة الأرصدة د - شاشة الكشف العام و - شاشة كشف كفيل هـ - شاشة كشف يتيم 4- الخدمات 5- دليل هاتف 6- نموذج لتسجيل المواعيد 7- نموذج لأظافة البنوك 8- شؤون الموظفين والكثير مما لا يتسع المجال لذكره تمعن في هذا البرنامج وأذا رغبت في تعديل أي شئي فالجميع سوف يقوم بخدمتك والله نسأل أن يجعلها لنا في موازيننا يوم لا ينفع لا مال ولا بنون وتقبل تحياتي وسوف أبحث لك عن غيره وأضيفه لك أخيك سهل أحمد ( ابو نعيم ) Aytam.rar

اخي الكريم سهل الله يسهل امورك ويفتح لك ابواب رزقة