AlwaZeeR

طريقة أخرى اكثر شمولية ضع في حدث عند الخروج للحقل If Not IsNumeric(Me.YrField) Then MsgBox "القيمة المدخلة ليست رقم" Cancel = True End If Select Case Len(YrField) Case 12 Case Else MsgBox ("يجب أن يحتوي الحقل على 12 رقم") Cancel = True End Select 🙂

حشى لله ان تكون كذلك فأنت من أجمل العقول النيرة التي صادفتها في هذا الصرح العظيم اليك مثال وتطبيق لما ذكرت بما سمح الوقت PopMsgTest1.mdb

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

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

🙂 أبو جودي قاصدها يا أستاذ عبد هلأ بدك تدفع هههههه ::

=DLookUp("[سعر الشراء]","[stock_query]","[الصنف]='" & [Type] & "'")

بدل السابق بهذا DoCmd.GoToRecord , , acLast Me.[نموذج فرعي AGAZATARSED].SetFocus DoCmd.GoToRecord , , acLast

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

تفضل تم استخدام نفس الكود الذي ارفقته لك في المشاركة السابقة sedoX.rar

ما عرفت وين الاقي المكان عموماً في النموذج الرئيسي الموجود فيه الفرعي ضع في حدث عند الفتح او حدث عند التحميل Me.[SubformName].SetFocus DoCmd.GoToRecord , , acLast

حبيبي شيخنا ربي يبارك فيك

حياك الله عزيزي لكن لم افهم ماذا تقصد

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

قم بتغيير اسم القائمة المنسدلة (اختر الصف) الى 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 - رقم - مفتاح أساسي - لك الحرية في ان تجعله ترقيم تلقائي او يدوي حسب حاجتك === اعمل السابق واكتب كم شعبة لكل صف تريد وسنستمر الى ان نصل الى ما تريد :: تحياتي