AlwaZeeR

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

قم بتغيير اسم القائمة المنسدلة (اختر الصف) الى ClassID ثم ضع في حدث بعد التحديث الخاص بها الكود التالي Dim strSQL As String strSQL = "UPDATE Studen " & _ "SET [اختر]= true " & _ "WHERE saf ='" & ClassID & "'" 'Debug.Print strSQL CurrentDb.Execute strSQL, dbFailOnError

البناء يتم في بيئة 2003 لأول مرة بعد ذلك تعمل مع جميع الاصدارات سأرفق لك ملف تظهر فيه الاذونات في اوفيس 2007 وما فوق الفكرة انها تعمل في جميع الاصدارات ولكن البناء لأول مرة يحتاج الى بيئة اقل K.accdb

Private Function IsDplcateRec() As Boolean IsDplcateRec = False If IsNull(DLookup("SuID", "Contacts_T", "SuID=" & Me.SupplierID)) = False Then IsDplcateRec = True Else CurrentDb.Execute "INSERT into Contacts_T([SuID]) VALUES (" & SupplierID & " )" End If End Function Private Sub cmd_Click() On Error Resume Next Dim Lst As String Lst = DLast("SuID", "Contacts_T") + 1 If IsDplcateRec Then MsgBox _ " الرقم المدخل موجود في الجدول وهو : ( " & [SupplierID] & " )" CurrentDb.Execute "INSERT into Contacts_T([SuID]) VALUES (" & Lst & " )" MsgBox _ "تم اضافة سجل جديد برقم : ( " & [Lst] & " )" End If End Sub الكود يقوم بـ يفحص اذا كان الرقم المدخل موجود يخبرك انه موجود وسيتم إضافة سجل باخر رقم مووجود في الجدول +1 بخصوص التحديث في جدولين فقط استخدم الامر CurrentDb.Execute "INSERT into Contacts_T([SuID]) VALUES (" & Lst & " )" مع استبدال المتغيرات حسب حاجتك اليك ملف تجريبي = fix-07-07-2019.accdb

=" % " & Round(([HG_3]/[HG_2])*100,0) لماذا الكود؟ لماذا لا يتم استدعاء الاستعلام كاملا داخل التقرير؟ بدلا من استدعائه كما ورد في تقريرك؟

وعليكم السلام ورحمة الله وبركاته تابع الصور واي استفسار لا تترد بعد الانتهاء من التطبيق تجد ملف اسمه أمان في المكان الذي اخترته من الصورة الأخيرة هذا الملف يتم استدعاؤه عن طريق وضع هذا الكود تحت زر امر في مكان خاص بك في أي نموذج DoCmd.RunCommand acCmdWorkgroupAdministrator بعد ذلك تضع الاسم الذي تم عمله به وهنا في الصور Khalf بعد الدخول نستطيع تعديل الاذونات كما نريد الصور تقريبا مرتبة حسب الخطوات 🙂

بالاعتماد على نفس الكود الذي وضعته لك في مشاركة سابقة مع بعض التعديلات تفضل Dim File_Path As String Dim File_Name As String Dim Name_Path As String Dim Fso As Object Dim NewPath As String Set Fso = CreateObject("scripting.filesystemobject") File_Path = Application.CurrentProject.Path & "\CONTACT\" NewPath = Application.CurrentProject.Path & "\CONTACT\Old\" File_Name = Dir(File_Path & "\*.*") Name_Path = File_Path & File_Name If InStr(File_Name, crn) > 0 Then MsgBox (" * تم ايجاد تطابق بين رقم كذا والملف - سيتم نقله * ") Fso.MoveFile Name_Path, NewPath Else MsgBox (" * لا يوجد ملفات لنقلها * ") End If MoveFile.mdb CONTACT.rar

عند التعديل في نفس الرقم كيف سيعرف ملف البي دي اف؟ التعديل يتم بعد ان يبحث عن الرقم الموجود في crn اذا وجد انه نفس الرقم لا يقوم بعمل شيء واذا تم تغييره يتم التعديل على ماذا سيعتمد اذا غيرنا رقم crn === قد أكون لم افهمك جيدا دائما هناك حل اشرح اكثر

=Count(IIf([YourFild] Like "*صباحية*",1)) =Sum(IIf([YourFild]="صباحية", 1, 0) Untested

تفضل واي استفسار لا تتردد 5555.pdf account.mdb

ابشر اخوي أبو ابراهيم تفضل On Error GoTo ErrHandler Dim File_Path As String Dim File_Name As String Dim Name_Path As String File_Path = Application.CurrentProject.Path & "\CONTACT\" File_Name = Dir(File_Path & "\*.*") Name_Path = File_Path & File_Name '=ابحث ان كان الملف موجود في المجلد المحدد If InStr(File_Name, crn) > 0 Then '= في حال وجوده وتم تغيير اسمه قم بتبديل الاسم القديم بالجديد Name File_Path & File_Name As File_Path & Replace(File_Name, crn, Newname) '= افتح الملف Application.FollowHyperlink Name_Path Else '= في حال لم ييجد الملف باعتماد رقم Crn MsgBox "صورة ايصال العميل غير محفوظة" End If '== ازالة خطأ Esc / ليس مهما الرقم ErrHandler: If Err.Number = 16388 Then Exit Sub عمل الكود - يقوم بمقارنة الاسم الموجود في الملف كونتاكت حسب الرقم Crn - في حال وجد الملف يقوم بفتحه - اذا تم تعديل الاسم في حقل الاسم الجديد يقوم بتغييره الى الاسم الجديد :: تحياتي نسيت حقل NewName مفترض ان يكون في النموذج للاسم الجديد

If DCount("*", "[Contacts_T]", "[TxtField]=' " & Me.TxtField & "'") > 0 Then MsgBox "كود المورد موجود في دليل الهاتف", vbCritical, "تنبية" Untested

وعليكم السلام ورحمة الله وبركاته العمل الصحيح والسليم لقاعدة بيانات طلاب هي كالتالي أولا وهو المهم ابتعد عن المسميات العربية وقم بالكتابة بالانجليزي المعرب يتم تصميم الجداول كما يلي الجدول الاول StuNames - اسم الجدول StuID - ترقيم تلقائي - مفتاح اساسي Stuname - نص ClassID - رقم وكمل بهذا النسق حسب حاجتك الجدول الثاني SchooClasses - اسم الجدول ClassID - رقم - مفتاح أساسي - لك الحرية في ان تجعله ترقيم تلقائي او يدوي حسب حاجتك === اعمل السابق واكتب كم شعبة لكل صف تريد وسنستمر الى ان نصل الى ما تريد :: تحياتي

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

فاهم عليك ضع هذه المعادلة في تكلفة المياه =DSum("[اثمان المياة]","[عدادات المياه]","[اسم المستاجر]='" & [اسم المستاجر] & "'" & "And [التاريخ]=#" & Format([التاريخ],"yyyy/mm/dd") & "#") يحسبها بمعيار اسم المستاجر والتاريخ هذا حل سهل واذا اردت الصعب اتركه للغالي أبا جودي 🙂

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

أستاذ طاهر وضعت تاريخ 02/03/2019 في الاستعلام q_aa2 وكانت النتيجة كما في الصورة ما المشكلة؟ من اين سناتي بالرصيد السابق الصحيح؟؟؟؟ === بعد ان وضعت الصور لاحظت ان الجمع في الاستعلام خاطئ === جاري العمل ... لا ليس خطأً الجمع صحيح يرجى التوضيح ما هي الحقول المسؤولة عن الرصيد السابق

وعليكم السلام ورحمة الله وبركاته ماذا تقصد بشرط الاسم؟؟ وكيف تريد نقلها؟ عند الضغط على ماذا؟ حسب ما ورد في المثال لديك هكذا يتم النقل بس لا ادري اين اضع الامر Forms![المبلغ]!mb = Forms![عدادات المياه]![التكلفة] mb هو اسم الحقل الموجود في جدول المبلغ وبخصوص الجزئية الثانية من السؤال كنت قد اجبت عليها في سؤال سابق للأستاذ عبد الغفار بخصوص ارقام الجلوس تقريبا نفس الحل عموما اشرح اكثر وسنصل للنتيجة لا تقلق عزيزي الأستاذ عبد اللطيف

هلا بيك اخوي هالجزئية ما فهمتها من السؤال ترقيم.rar

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

وعليكم السلام ورحمة الله وبركاته تقصد تعبئة الصفحة بالأسطر بعد السجلات المعبئة بمعنى ان سعة الصفحة مثلاً عشرين سطرا وانت قمت بتعبئة سطرين مثلا تريد ان تظهر السطرين +18 سطر فارغ وهكذا؟؟ ان كان هذا ما تريد ارفق مثالا لتطبيق ما ذكر

ضع تحت حدث عند تحرك قرص الماوس في النموذج الرئيسي الكود التالي With Me![Request].Form If .RecordsetClone.RecordCount > 0 Then DoCmd.GoToRecord , , acNewRec Else End If End With

IF [التاريخ المحدد] True then do ... end IF

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

وانا وانت وجميع المسلمين :: عدلت لك المرفق كي يقوم بتعبئة الحقول في الجداول تحياتي