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

ومشاركه مع اخوانى بداله 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

برنامج للامانة لا اعرف من قام بتصميمه اضعه بين ايديكم للفائدة مثال للتعامل مع الصور.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

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

اعرض الملف الاتصال بالجداول الخلفية لقاعدة بيانات او اكثر من قاعدة والتنقل بينهم السلام عليكم ورحمة الله تعالى وبركاته اهديكم واضع بين اياديكم هذا المثال والذى من خلاله يتم الارتباط بقاعدة / او عدة قواعد خلفية دفعة واحدة والتنقل فيما بينهم برمجيا آلية العمل -عمل اختبار للاتصال بالقاعدة الخلفية وإذا فشل الاختبار ينتقل للمرحلة التالية - البحث اليا عن المجلد الاصلى بجوار قاعدة البيانات الامامية فى حالة وجوده يرتبط اليا بجميع القواعد بداخله بمجرد الموافقة على ذلك من خلال الرسالة أو يمكنك تغير المسار للبحث بنفسك واحضار قاعدة الخلفية او القواعد إن زاد عددهم عن واحدة بمجرد اختيار المجلد الموجودة به -المرجلة التالية هى تأكيد واختيار القاعدة /أو القواعد والتى تخص هذه القاعدة الأمامية -المرحلة التالية بعد تأكيد اختيار القواعد فى هذه المرحلة والأخيرة نختار القاعدة التى نتصل بها وان كانت تحتوى على كلمة مرور نكتبها فى المكان المخصص لذلك وهنا على سبيل المثال قاعدة الخلفية 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 الاقسام قسم الأكسيس

IIf([TempVars]![xv]=" ";[البيان];([حركات].[البيان]) Like "*" & [TempVars]![xv] & "*") Or Like "*" & [TempVars]![xv] & "*" عدلتها هذا وصارت ممتاز الف شكر اخي رمهان رمهان (2).accdb

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

مختلف الدالات للاكسل ..... دالات ورقة العمل المدرجة حسب الفئة إظهار الكلإخفاء الكلدالات قاعدة البيانات يتضمن Microsoft Excel دالات أوراق عمل تقوم بتحليل البيانات المخزنة في القوائم وقواعد البيانات. تستخدم كل من هذه الدالات، التي يتم الإشارة إليها معاً كدالات قواعد البيانات (Dfunctions)، ثلاث وسائط: قاعدة البيانات والحقل والمعايير. تشير هذه الوسائط إلى نطاقات ورقة العمل التي تستخدمها الدالة. DAVERAGE إرجاع متوسط إدخالات قاعدة البيانات المحددة. DCOUNT حساب الخلايا التي تحتوي على أرقام في قاعدة البيانات. DCOUNTA حساب الخلايا غير الفارغة في قاعدة بيانات. DGET استخراج سجل مفرد من قاعدة بيانات يطابق المعيار المعين. DMAX إرجاع القيمة القصوى من إدخالات قاعدة البيانات المحددة. DMIN إرجاع القيمة الدنيا من إدخالات قاعدة البيانات المحددة. DPRODUCT ضرب القيم في حقل سجلات معين يطابق المعيار الموجود في قاعدة بيانات. DSTDEV تقدير الانحراف المعياري استنادًا إلى عينة من إدخالات قاعدة بيانات محددة. DSTDEVP حساب الانحراف المعياري استنادًا إلى مجموعة البيانات بأكملها الخاصة بإدخالات قاعدة البيانات المحددة. DSUM جمع الأرقام في عمود الحقل الخاص بالسجلات في قاعدة البيانات التي تطابق المعيار. DVAR تقدير التباين استنادًا إلى عينة من إدخالات قاعدة البيانات المحددة. DVARP حساب التباين استنادًا إلى مجموعة البيانات بأكملها الخاصة بإدخالات قاعدة البيانات المحددة. GETPIVOTDATA إرجاع بيانات مخزنة في PivotTable. دالات التاريخ والوقت DATE إرجاع الرقم التسلسلي لتاريخ معين. DATEVALUE تحويل تاريخ في شكل نص إلى رقم تسلسلي. DAY تحويل رقم تسلسلي إلى يوم من أيام الشهر. DAYS360 حساب عدد الأيام بين تاريخين استنادًا إلى سنة مكونة من 365 يوماً. EDATE إرجاع الرقم التسلسلي للتاريخ المشار إليه بعدد الأشهر قبل تاريخ البداية أو بعده. EOMONTH إرجاع الرقم التسلسلي لليوم الأخير من الشهر قبل عدد معين من الأشهر أو بعده. HOUR تحويل رقم تسلسلي إلى ساعة. MINUTE تحويل رقم تسلسلي إلى دقيقة. MONTH تحويل رقم تسلسلي إلى شهر. NETWORKDAYS إرجاع عدد أيام العمل بين تاريخين. NOW إرجاع الرقم التسلسلي للتاريخ والوقت الحالي. SECOND تحويل رقم تسلسلي إلى ثانية. TIME إرجاع الرقم التسلسلي لوقت معين. TIMEVALUE تحويل وقت في شكل نص إلى رقم تسلسلي. TODAY إرجاع الرقم التسلسلي لتاريخ اليوم. WEEKDAY تحويل رقم تسلسلي إلى يوم من أيام الأسبوع. WEEKNUM تحويل رقم تسلسلي إلى رقم يمثل رقم الأسبوع في السنة WORKDAY إرجاع الرقم التسلسلي للتاريخ قبل عدد معين من أيام العمل أو بعده. YEAR تحويل رقم تسلسلي إلى سنة. YEARFRAC إرجاع كسر السنة الذي يمثل عدد الأيام كاملة بين start_date (تاريخ البداية) و end_date (تاريخ النهاية). الدالات الخارجية يتم تحميل هذه الدوال بواسطة برامج الوظائف الإضافية (وظيفة إضافية: برنامج إضافي يضيف أوامر أو ميزات مخصصة إلى Microsoft Office.) EUROCONVERT تحويل رقم إلى اليورو، أو تحويل رقم من اليورو إلى عملة أحد أعضاء الاتحاد الأوروبي، أو تحويل رقم لعملة أحد أعضاء الاتحاد الأوروبي إلى عملة عضو آخر باستخدام اليورو كوسيط (حساب مثلثات) SQL.REQUEST الاتصال بمصدر بيانات خارجي وتشغيل استعلام من ورقة عمل، ثم إرجاع الناتج كصفيف دون الحاجة إلى برمجة ماكرو. الدالات الهندسية BESSELI إرجاع دالة Bessel المعدلة In(x). BESSELJ إرجاع دالة Bessel Jn(x) BESSELK إرجاع دالة Bessel المعدلة KN(x). BESSELY إرجاع دالة Bessel Yn(x) BIN2DEC تحويل رقم ثنائي إلى رقم عشري. BIN2HEX تحويل رقم ثنائي إلى رقم سداسي عشري. BIN2OCT تحويل رقم ثنائي إلى رقم ثماني. COMPLEX تحويل المُعامل الحقيقي والتخيلي إلى رقم مركب. CONVERT تحويل رقم من نظام قياس إلى آخر. DEC2BIN تحويل رقم عشري إلى رقم ثنائي. DEC2HEX تحويل رقم عشري إلى رقم سداسي عشري. DEC2OCT تحويل رقم عشري إلى رقم ثماني. DELTA اختبار ما إذا كانت القيمتان متساويتين. ERF إرجاع دالة الخطأ. ERFC إرجاع متمم دالة الخطأ. GESTEP اختبار ما إذا كان رقم ما أكبر من قيمة البدء. HEX2BIN تحويل رقم سداسي عشري إلى رقم ثنائي. HEX2DEC تحويل رقم سداسي عشري إلى رقم عشري. HEX2OCT تحويل رقم سداسي عشري إلى رقم ثماني. IMABS إرجاع القيمة المطلقة (المعامل) لرقم مركب. IMAGINARY إرجاع المُعامل التخيلي لرقم مركب. IMARGUMENT إرجاع وسيطة ثيتا، وهي زاوية مقاسة بالتقدير الدائري. IMCONJUGATE إرجاع مرافق الاشتقاق المركب لرقم مركب. IMCOS إرجاع جيب التمام لرقم مركب. IMDIV إرجاع حاصل قسمة رقمين مركبين. IMEXP إرجاع الأس لرقم مركب. IMLN إرجاع اللوغاريتم الطبيعي لرقم مركب. IMLOG10 إرجاع أساس اللوغاريتم 10 لرقم مركب. IMLOG2 إرجاع أساس اللوغاريتم 2 لرقم مركب. IMPOWER إرجاع رقم مركب مرفوع إلى أس عدد صحيح. IMPRODUCT إرجاع ناتج رقميين مركبين. IMREAL إرجاع المُعامل الحقيقي لرقم مركب. IMSIN إرجاع جيب رقم مركب. IMSQRT إرجاع الجذر التربيعي لرقم مركب. IMSUB إرجاع فارق رقميين مركبين. IMSUM إرجاع مجموع أرقام مركبة. OCT2BIN تحويل رقم ثماني إلى رقم ثنائي. OCT2DEC تحويل رقم ثماني إلى رقم عشري. OCT2HEX تحويل رقم ثماني إلى رقم سداسي عشري. الدالات المالية ACCRINT إرجاع الفائدة المستحقة لورقة مالية لها فائدة دورية. ACCRINTM إرجاع الفائدة المستحقة لورقة مالية لها فائدة عند الاستحقاق. AMORDEGRC إرجاع الإهلاك لكل فترة حساب باستخدام مُعامل إهلاك. AMORLINC إرجاع الإهلاك لكل فترة حساب COUPDAYBS إرجاع عدد الأيام من بداية فترة القسيمة إلى تاريخ التسوية. COUPDAYS إرجاع عدد الأيام في فترة القسيمة التي تتضمن تاريخ التسوية. COUPDAYSNC إرجاع عدد الأيام من تاريخ التسوية إلى تاريخ القسيمة التالي. COUPNCD إرجاع تاريخ القسيمة التالي بعد تاريخ التسوية. COUPNUM إرجاع عدد القسائم المستحقة الدفع بين تاريخ التسوية وتاريخ الاستحقاق. COUPPCD إرجاع تاريخ القسيمة السابق قبل تاريخ التسوية. CUMIPMT إرجاع الفائدة المتراكمة المدفوعة بين فترتين. CUMPRINC إرجاع رأس المال المتراكم المدفوع على قرض بين فترتين. DB إرجاع استهلاك أحد الأصول لفترة معينة باستخدام طريقة الرصيد المتناقص الثابت. DDB إرجاع استهلاك أحد الأصول لفترة معينة باستخدام طريقة الرصيد المتناقص المزدوج أو طريقة أخرى تقوم بتعيينها. DISC إرجاع نسبة الخصم على ورقة مالية. DOLLARDE تحويل سعر دولار، في صورة كسر، إلى سعر دولار، في صورة رقم عشري. DOLLARFR تحويل سعر دولار، في صورة رقم عشري، إلى سعر دولار، في صورة كسر. DURATION إرجاع المدة السنوية لورقة مالية لها مدفوعات فوائد دورية. EFFECT إرجاع نسبة فوائد سنوية نافذة المفعول. FV إرجاع القيمة المستقبلية للاستثمار. FVSCHEDULE إرجاع القيمة المستقبلية لرأس المال الأول بعد تطبيق سلسلة من نسب الفوائد المركبة. INTRATE إرجاع نسبة الفوائد لورقة مالية انتهت فترة استثمارها بالكامل. IPMT إرجاع مدفوعات الفوائد لاستثمار لمدة معينة. IRR إرجاع النسبة الداخلية لعائدات سلسلة من التدفقات النقدية. ISPMT حساب الفائدة المدفوعة في فترة معينة لاستثمار. MDURATION إرجاع فترة ماكولي المعدلة لورقة مالية لكل قيمة اسمية مفترضة قدرها $100 MIRR إرجاع النسبة الداخلية للعائد الذي يتم فيه حساب التدفقات المالية الموجبة والسالبة بنسب مختلفة. NOMINAL إرجاع نسبة الفوائد الاسمية السنوية. NPER إرجاع عدد فترات الاستثمار. NPV إرجاع القيمة الحالية الصافية لاستثمار استنادًا إلى سلسلة من التدفقات النقدية السنوية ونسبة خصم. ODDFPRICE إرجاع السعر لكل قيمة اسمية قدرها 100$ لورقة مالية لها فترة أولى محددة. ODDFYIELD إرجاع عائد ورقة مالية لها فترة أولى محددة. ODDLPRICE إرجاع السعر لكل قيمة اسمية قدرها $100 لورقة مالية لها فترة أخيرة محددة ODDLYIELD إرجاع عائد ورقة مالية لها فترة أخيرة محددة PMT إرجاع المدفوعات الدورية لقسط سنوي. PPMT إرجاع المدفوعات على رأس مال لاستثمار في فترة زمنية معينة. PRICE إرجاع السعر لكل قيمة اسمية قدرها 100$ لورقة مالية تعطي فائدة دورية. PRICEDISC إرجاع السعر لكل قيمة اسمية قدرها 100$ لورقة مالية عليها خصم. PRICEMAT إرجاع السعر لكل قيمة اسمية قدرها 100$ لورقة مالية لها فائدة عند الاستحقاق PV إرجاع القيمة الحالية للاستثمار. RATE إرجاع نسبة الفوائد لكل فترة لقسط سنوي. RECEIVED إرجاع المبلغ الذي يتم صرفه عند الاستحقاق لورقة مالية تم استثمارها بالكامل SLN إرجاع الاستهلاك الثابت للموجودات لفترة واحدة SYD إرجاع الإهلاك الرقمي لمجموع السنوات لأحد الأصول في فترة محددة TBILLEQ إرجاع عائد السند المكافئ لسند "الخزانة" TBILLPRICE إرجاع السعر لكل قيمة اسمية قدرها $100 لسند "الخزانة" TBILLYIELD إرجاع العائد لسند "الخزانة" VDB إرجاع استهلاك أحد الأصول لفترة محددة أو جزئية باستخدام طريقة القسط المتناقص XIRR إرجاع معدل الربح الداخلي لجدول تدفقات نقدية ليس بالضرورة دورياً XNPV إرجاع القيمة الحالية الصافية لجدول تدفقات نقدية ليس بالضرورة دورياً YIELD إرجاع عائد ورقة مالية لها فائدة دورية YIELDDISC إرجاع العائد السنوي لورقة مالية عليها خصم؛ على سبيل المثال، سند "الخزانة" YIELDMAT إرجاع العائد السنوي لورقة مالية لها فائدة عند الاستحقاق دالات المعلومات CELL إرجاع معلومات حول تنسيق خلية أو موقعها أو محتوياتها ERROR.TYPE إرجاع رقم مطابق لأحد أنواع الخطأ. INFO إرجاع معلومات حول نظام التشغيل الحالي. ISBLANK إرجاع TRUE إذا كانت القيمة فارغة. ISERR إرجاع TRUE إذا كانت القيمة أي قيمة خطأ فيما عدا #N/A. ISERROR إرجاع TRUE إذا كانت القيمة أي قيمة خطأ. ISEVEN إرجاع TRUE إذا كان الرقم زوجياً. ISLOGICAL إرجاع TRUE إذا كانت القيمة منطقية. ISNA إرجاع TRUE إذا كانت القيمة قيمة الخطأ #N/A. ISNONTEXT إرجاع TRUE إذا لم تكن القيمة نصاً. ISNUMBER إرجاع TRUE إذا كانت القيمة رقماً. ISODD إرجاع TRUE إذا كان الرقم فردياً. ISREF إرجاع TRUE إذا كانت القيمة مرجعاً. ISTEXT إرجاع TRUE إذا كانت القيمة نصاً. N إرجاع قيمة محولة إلى رقم. NA إرجاع قيمة الخطأ # N/A. TYPE إرجاع رقم يشير إلى نوع البيانات للقيمة. دالات العوامل المنطقية AND إرجاع TRUE إذا كانت كافة وسائطها TRUE. FALSE إرجاع القيمة المنطقية FALSE. IF تعيين اختبار منطقي لتنفيذه. NOT عكس منطق الوسيطة الخاصة بها. OR إرجاع TRUE إذا كانت أية وسيطة TRUE. TRUE إرجاع القيمة المنطقية TRUE. دالات البحث والمراجع ADDRESS إرجاع مرجع كنص إلى خلية مفردة في ورقة عمل. AREAS إرجاع عدد النواحي في مرجع. CHOOSE اختيار قيمة من قائمة قيم. COLUMN إرجاع رقم العمود لمرجع. COLUMNS إرجاع عدد الأعمدة الموجودة في مرجع. HLOOKUP البحث في الصف العلوي للصفيف وإرجاع قيمة الخلية المشار إليها. HYPERLINK إنشاء اختصار أو انتقال سريع يفتح مستند مُخزن في ملقم شبكة اتصال، أو إنترانت، أو إنترنت. INDEX استخدام فهرس لاختيار قيمة من مرجع أو صفيف. INDIRECT إرجاع مرجع مشار إليه بقيمة نصية. LOOKUP البحث عن قيم في اتجاه أو صفيف. MATCH البحث عن قيم في مرجع أو صفيف. OFFSET إرجاع إزاحة مرجع من مرجع معين. ROW إرجاع رقم الصف لمرجع. ROWS إرجاع عدد الصفوف الموجودة في مرجع. RTD استرداد بيانات الوقت الحقيقي من أحد البرامج التي تعتمد عمل COM التلقائي (التلقائية: طريقة للعمل مع كائنات تطبيق معين من تطبيق آخر أو من أداة تطوير. وتعتبر التلقائية، التي كان يطلق عليها في السابق "تلقائية OLE"، مقياساً ُيستخدم في الصناعة وميزة لنموذج كائن المكون (COM).) TRANSPOSE إرجاع تبديل موضع لصفيف. VLOOKUP البحث في العمود الأول لصفيف والتنقل عبر الصف لإرجاع قيمة خلية. الدالات الحسابية والمثلثية ABS إرجاع القيمة المطلقة لرقم. ACOS إرجاع قوس جيب التمام لرقم. ACOSH إرجاع جيب تمام الزاوية العكسي لقطع زائد. ASIN إرجاع قوس جيب التمام لرقم. ASINH إرجاع جيب الزاوية العكسي لقطع زائد. ATAN إرجاع قوس الظل لرقم. ATAN2 إرجاع قوس الظل من إحداثيات س وص ATANH إرجاع الظل العكسي لقطع زائد. CEILING تقريب الرقم إلى أقرب عدد صحيح أو أقرب مضاعف معنوي. COMBIN إرجاع عدد التوافيق لعدد معين من الأشياء COS إرجاع جيب التمام لرقم. COSH إرجاع جيب التمام لقطع الزائد . DEGREES تحويل التقدير الدائري إلى درجات. EVEN تقريب رقم إلى الأعلى إلى أقرب عدد صحيح زوجي. EXP إرجاع e مرفوعة إلى أس رقم معين FACT إرجاع مضروب رقم. FACTDOUBLE إرجاع المضروب المزدوج لرقم. FLOOR تقريب رقم للأدنى باتجاه الصفر. GCD إرجاع القاسم المشترك الأكبر. INT تقريب رقم للأدنى إلى أقرب عدد صحيح. LCM إرجاع المضاعف المشترك الأصغر. LN إرجاع اللوغاريتم الطبيعي لرقم. LOG إرجاع اللوغاريتم لرقم إلى أساس معين. LOG10 إرجاع لوغاريتم رقم بأساس 10. MDETERM إرجاع محدد المصفوفة لصفيف. MINVERSE إرجاع معكوس المصفوفة لصفيف MMULT إرجاع ناتج المصفوفة لصفيفين MOD إرجاع الباقي من القسمة. MROUND إرجاع رقم مقرب إلى المضروب المطلوب. MULTINOMIAL إرجاع متعدد الحدود لمجموعة أرقام. ODD تقريب الرقم للأعلى إلى أقرب عدد فردي صحيح. PI إرجاع قيمة النسبة التقريبية ط (pi) POWER إرجاع النتيجة لعدد مرفوع إلى أس. PRODUCT ضرب الوسائط الخاصة بها. QUOTIENT إرجاع جزء العدد الصحيح لناتج القسمة. RADIANS تحويل الدرجات إلى تقدير دائري. RAND إرجاع رقم عشوائي بين صفر وواحد. RANDBETWEEN إرجاع رقم عشوائي بين الأرقام المحددة. ROMAN تحويل رقم عربي إلى روماني، كنص. ROUND تقريب رقم إلى عدد أرقام معين. ROUNDDOWN تقريب رقم للأدنى، باتجاه الصفر. ROUNDUP تقريب رقم للأعلى، بعيدًا عن الصفر. SERIESSUM إرجاع مجموع سلسلة من الأسس استنادًا إلى الصيغة. SIGN إرجاع إشارة رقم. SIN إرجاع جيب الزاوية لزاوية محددة. SINH إرجاع جيب الزاوية لقطع زائد. SQRT إرجاع الجذر التربيعي الموجب لرقم. SQRTPI إرجاع الجذر التربيعي لـ (رقم ‎* Pi). SUBTOTAL إرجاع مجموع فرعي لقائمة أو قاعدة بيانات. SUM جمع الوسائط الخاصة بها. SUMIF جمع الخلايا المحددة بمعايير معينة. SUMPRODUCT إرجاع مجموع حواصل ضرب مكونات الصفائف المتناظرة. SUMSQ إرجاع مجموع مربعات الوسائط. SUMX2MY2 إرجاع مجموع فارق المربعات للقيم المتناظرة في صفيفين. SUMX2PY2 إرجاع المجموع الخاص بمجموع مربعات القيم المتناظرة في صفيفين. SUMXMY2 إرجاع مجموع مربعات فارق القيم المتناظرة في صفيفين. TAN إرجاع ظل الزاوية. TANH إرجاع ظل زاوية قطع زائد. TRUNC اقتطاع رقم إلى عدد صحيح. الدالات الإحصائية AVEDEV إرجاع متوسط الانحرافات المطلقة لنقاط البيانات من الوسط الخاص بها AVERAGE إرجاع متوسط الوسائط الخاصة بها AVERAGEA إرجاع متوسط الوسائط الخاصة بها، بما في ذلك الأرقام، والنص، والقيم المنطقية BETADIST إرجاع دالة التوزيع المتراكم لبيتا BETAINV إرجاع معكوس دالة التوزيع التراكمية لتوزيع بيتا معين BINOMDIST إرجاع الحد الفردي لاحتمال توزيع ذي حدين CHIDIST إرجاع الاحتمال أحادي الطرف لتوزيع كاي التربيعي CHIINV إرجاع معكوس الاحتمال وحيد الطرف لتوزيع كاي التربيعي CHITEST إرجاع اختبار الاستقلال CONFIDENCE إرجاع فترة الثقة لوسط مجموعة بيانات CORREL إرجاع معامل الارتباط بين مجموعتين من البيانات COUNT حساب الأرقام الموجودة في قائمة الوسائط COUNTA حساب القيم الموجودة في قائمة الوسائط COUNTBLANK حساب عدد الخلايا الفارغة في أحد النطاقات. COUNTIF حساب عدد الخلايا غير الفارغة في نطاق يطابق المعايير المحددة. COVAR إرجاع التباين المشترك، متوسط نتائج الانحرافات المزدوجة CRITBINOM إرجاع أصغر قيمة التي يقل التوزيع التراكمي ذي الحدين الخاص بها عن قيمة المعيار أو يتساوى معها DEVSQ إرجاع مجموع مربعات الانحرافات EXPONDIST إرجاع التوزيع الأسي FDIST إرجاع التوزيع الاحتمالي F FINV إرجاع التوزيع الاحتمالي العكسي لـF FISHER إرجاع تحويل Fisher FISHERINV إرجاع التحويل العكسي لـFisher FORECAST إرجاع قيمة موجودة على اتجاه خطي FREQUENCY إرجاع توزيع تكراري كصفيف عمودي FTEST إرجاع نتيجة اختبار F GAMMADIST إرجاع توزيع غاما GAMMAINV إرجاع توزيع غاما التراكمي العكسي GAMMALN إرجاع اللوغاريتم الطبيعي لدالة غاما, Γ(x) GEOMEAN إرجاع الوسط الهندسي GROWTH إرجاع القيم الموجودة على خط أسي HARMEAN إرجاع الوسط التوافقي HYPGEOMDIST إرجاع التوزيع الهندسي الزائد INTERCEPT إرجاع الجزء المحصور لخط الانحدار الخطي KURT إرجاع تفلطح مجموعة بيانات LARGE إرجاع أكبر قيمة ترتيبها k في مجموعة بيانات LINEST إرجاع معلمات اتجاه خطي LOGEST إرجاع معلمات اتجاه أسي LOGINV إرجاع التوزيع اللوغاريتمي الطبيعي العكسي LOGNORMDIST إرجاع التوزيع اللوغاريتمي الطبيعي التراكمي MAX إرجاع أكبر قيمة في قائمة وسائط MAXA إرجاع أكبر قيمة في قائمة وسائط، بما في ذلك الأرقام، والنص، والقيم المنطقية MEDIAN إرجاع متوسط الأرقام المحددة MIN إرجاع أقل قيمة في قائمة وسائط MINA إرجاع أقل قيمة في قائمة وسائط، بما في ذلك الأرقام، والنص، والقيم المنطقية MODE إرجاع القيمة الأكثر تكراراً في مجموعة بيانات NEGBINOMDIST إرجاع التوزيع السالب ذي الحدين NORMDIST إرجاع التوزيع التراكمي الطبيعي NORMINV إرجاع التوزيع التراكمي الطبيعي العكسي NORMSDIST إرجاع التوزيع التراكمي الطبيعي القياسي NORMSINV إرجاع التوزيع التراكمي الطبيعي القياسي العكسي PEARSON إرجاع ناتج معامل للارتباط العزومي Pearson PERCENTILE إرجاع النسبة المئوية ذات الترتيب k لقيم في نطاق PERCENTRANK إرجاع مرتبة لقيمة بالنسبة المئوية في مجموعة بيانات PERMUT إرجاع عدد التباديل لعدد محدد من الكائنات POISSON إرجاع توزيع Poisson PROB إرجاع احتمال أن تكون القيم الموجودة في النطاق بين حدين QUARTILE إرجاع الربعي لمجموعة بيانات RANK إرجاع مرتبة رقم في قائمة أرقام RSQ إرجاع مربع ناتج معامل للارتباط العزومي Pearson SKEW إرجاع تخالف التوزيع SLOPE إرجاع الميل لخط الانحدار الخطي SMALL إرجاع أصغر قيمة ترتيبها k في مجموعة بيانات STANDARDIZE إرجاع قيمة قياسية STDEV تقدير الانحراف المعياري استناداً إلى عينة STDEVA تقدير الانحراف المعياري استناداً إلى عينة، بما في ذلك الأرقام، والنص، والقيم المنطقية STDEVP حساب الانحراف المعياري استناداً إلى مجموعة البيانات بأكملها STDEVPA حساب الانحراف المعياري استناداً إلى مجموعة البيانات بأكملها، بما في ذلك الأرقام، والنص، والقيم المنطقية STEYX إرجاع الخطأ المعياري لقيم ص المتوقعة وذلك لكل س في الانحدار TDIST إرجاع توزيع ستيودنت التائي TINV إرجاع توزيع ستيودنت التائي العكسي TREND إرجاع القيم الموجودة على الاتجاه الخطي TRIMMEAN إرجاع الوسط للجزء الداخلي لمجموعة بيانات TTEST إرجاع الاحتمال المقترن باختبار ستيودنت التائي VAR تقدير التباين استناداً إلى عينة VARA تقدير التباين استناداً إلى عينة، بما في ذلك الأرقام، والنص، والقيم المنطقية VARP حساب التباين استناداً إلى مجموعة البيانات بأكملها VARPA حساب التباين استناداً إلى مجموعة البيانات بأكملها، بما في ذلك الأرقام، والنص، والقيم المنطقية WEIBULL إرجاع توزيع Weibull ZTEST إرجاع قيمة احتمال أحادية الطرف للاختبار القياسي z-test دالات النص والبيانات ASC تغيير أحرف الإنكليزية أو كاتاكانا كاملة العرض (بايت مزدوج) في سلسلة أحرف إلى أحرف ذات نصف عرض (بايت مفرد). BAHTTEXT تحويل رقم إلى نص باستخدام تنسيق العملة &szlig; (baht) (الباهت) CHAR إرجاع الحرف المحدد بواسطة رقم الرمز. CLEAN إزالة الأحرف غير القابلة للطباعة من النص. CODE إرجاع رمز الرقم للحرف الأول في سلسلة نصية. CONCATENATE ربط عدة عناصر نصية في عنصر نص واحد. DOLLAR تحويل رقم إلى نص باستخدام تنسيق العملة $ (دولار) EXACT التحقق من تماثل قيمتين نصيتين. FIND البحث عن قيمة نصية داخل أخرى (تتبع حالة الأحرف). FIXED تنسيق رقم كنص بعدد عشري ثابت. JIS تغيير الأحرف الإنكليزية ذات نصف عرض (بايت مفرد) أو كاتاكانا في سلسلة أحرف إلى أحرف ذات عرض كامل (بايت مزدوج). LEFT إرجاع الأحرف الموجودة في أقصى اليسار من قيمة نصية LEN إرجاع عدد الأحرف في سلسلة نصية. LOWER تحويل نص إلى أحرف صغيرة. MID إرجاع عدد معين من الأحرف من سلسلة نصية بدءًا من الموضع الذي تقوم بتعيينه. PHONETIC استخراج الأحرف الصوتية (furigana) من سلسلة نصية. PROPER تغيير الحرف الأول في كل كلمة لقيمة نصية إلى أحرف كبيرة. REPLACE استبدال الأحرف في نص. REPT تكرار نص إلى عدد معين من المرات. RIGHT إرجاع الأحرف الموجودة في أقصى اليمين من قيمة نصية. SEARCH البحث عن قيمة نصية في أخرى (لا تتبع حالة الأحرف). SUBSTITUTE استبدال نص جديد بنص قديم في سلسلة نصية. T تحويل الوسيطة الخاصة بها إلى نص. TEXT تنسيق رقم وتحويله إلى نص. TRIM إزالة المسافات من نص. UPPER تحويل النص إلى أحرف كبيرة. VALUE تحويل وسيطة نصية إلى رقم.

تفضل 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

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