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

استاذ @2saad كيف الحقل رقمي وانت تريد ادخال نص (غ) أمامك حلان اما ان تحول حقل اللغة العربيه لنص كما فعلت أنا بالمرفق (Query1).وهنا لاحظ الأرقام(1و2و3و4) في الاستعلام هذا بين (""). لأنها نص...... أو تستبدل الحرف (غ) برقم مثل (88) ... (Query2) ...وهنا لاحظ الأرقام (1و2و3و4و88) في الاستعلام هذا ليست بين (""). لأنها رقم ونصيحة لك لا تستخدم اللغة العربية بالبرمجة لأنها بتلخبك البرمجة. واليك المرفق DDTest400.rar

السلام عليكم السبب فى ذلك عدم تعريفك للمتغير frm وعند الدخول للنموذج Frm_Loans فان قيمه المتغير تكون فارغه فلذلك يدخل ع الشرط الثانى اتفضل 20240315_1.mdb

لم يكن خطا برمجي كل ما هنالك بعض السجلات مكررة للرقم

وعليكم السلام ورحمه الله وبركاته مبارك علينا وعليكم تفضل =VLOOKUP(A4,البيانات!$A$2:$E$8,MATCH($D$3,البيانات!$A$1:$E$1,0),0) معادلة على اساس رأس الجدول.xlsm

التعديل على الواجهات يتم خارج الشبكة كلها ( على جهاز المطور ) ومؤكد الربط مختلف الفكرة الصحيحة التي لن نحتاج فيها الى ربط هي ان يكون مكان الجداول على قرص شبكة (باسم موحد ) ويكون كذلك عند المطور

اخي الكريم @abouelhassan هي من جوجل مع التعديل عليها واعادة تصميمها حسب حاجتي باستخدام الفوتوشوب . لكن غداً إن شاء الله سأرسل بمشاركة جديده اكثر من رابط مجاني يحتوي على الكثير من العناوين التي قد تحتاجها بكل التخصصات 🤗 .

صح عليك الامر يسير .. اجعل الاستعلام تجميعي اذا لم تتمكن من اصلاحه سأوافيك بالحل ان شاء الله

طيب شوف كده ....... Dim db As DAO.Database Dim rs As DAO.Recordset Dim i, TT As Integer Dim numCopies As Integer Set db = CurrentDb Set rs = db.OpenRecordset("SELECT tp2.GradeNO, tp2.سنوات_المكوث FROM tp2 WHERE (((tp2.GradeNO)<=" & Me.الدرجة_الوظيفية & ")) ORDER BY tp2.GradeNO DESC;", dbOpenDynaset) TT = iYear Do Until rs.EOF TT = TT - rs!سنوات_المكوث numCopies = rs!سنوات_المكوث If TT < rs!سنوات_المكوث Then Me.مربع_تحرير_وسرد47 = rs!GradeNO - 1 Me.مربع_تحرير_وسرد49 = Me.المرحلة_الوظيفية + TT GoTo RR End If For i = 1 To numCopies Next i rs.MoveNext Loop RR: If TT < rs!سنوات_المكوث And Me.مربع_تحرير_وسرد49 = 5 Then Me.مربع_تحرير_وسرد47 = rs!GradeNO - 1 Me.مربع_تحرير_وسرد49 = 1 Exit Sub End If rs.Close Set rs = Nothing Set db = Nothing جرب على امثلة اخرى للتاكد من الشيفرة

المستخدمين : 1-مدير = صلاحية كاملة 2-صلاحية ادخال بيانات وصلاحية التعديل على نموذج البحث 3-صلاحية ادخال بيانات فقط

الواجهة موجودة فعلا يمكنك التصرف في النهاية وتنسيق الواجهات حسب ذوقك ، ويكون هذا قبل تحويلها الى صيغة accde الآن اترك الواجهات كما هي من اجل سهولة العمل على البرنامج افتح موضوعا لعمل نموذج دخول ومستخدمين بسيط وسنعمل النقاط 2 ، 3 الأخرى ضمنا

يرتفع درجة يعني 7 صح هو كان في الثامنة

وعليكم السلام ورحمة الله وبركاته = IIf([اللغة العربية]="4";"أزرق";IIf([اللغة العربية]="3";"أخضر";IIf([اللغة العربية]="2";"أصفر";IIf([اللغة العربية]="1";"أحمر";IIf([اللغة العربية]="غ";"غ";"")))))

طيب جرب كده على امثلة لديك .... Dim db As DAO.Database Dim rs As DAO.Recordset Dim i, TT As Integer Dim numCopies As Integer Set db = CurrentDb Set rs = db.OpenRecordset("SELECT tp2.GradeNO, tp2.سنوات_المكوث FROM tp2 WHERE (((tp2.GradeNO)<=" & Me.الدرجة_الوظيفية & ")) ORDER BY tp2.GradeNO DESC;", dbOpenDynaset) TT = iYear Do Until rs.EOF TT = TT - rs!سنوات_المكوث numCopies = rs!سنوات_المكوث If TT < rs!سنوات_المكوث Then Me.مربع_تحرير_وسرد47 = rs!GradeNO - 1 Me.مربع_تحرير_وسرد49 = Me.المرحلة_الوظيفية + TT Exit Sub End If For i = 1 To numCopies Next i rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing

جميل ... اليس هذا ماتم في هذه الصورة

اطلب شيء يتجاوب عليه لأن طلبك من بارامترات الجداول الخاصة بأكسس .

وعليكم السلام ورحمه الله وبركاته عدل If .TextBox4.Value <> "" And X <> 0 Then الى If .TextBox4.Value <> "" And X <> 0 And IsNumeric(.TextBox30.Value) Then

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

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

جزاك خير اشكرك

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

إنتهاء الرحصة222.xlsm

Public Sub OpenMyForm() DoCmd.OpenForm "types", acNormal End Sub ثم قم بالاستدعاء تحت زر الامر هكذا OpenMyForm

شكرا جزيلا

وعليكم السلام كما تفضل الاستاذ كمال بالإشارة إلى أنه يجب إرفاق نموذج للعمل عليه نؤكد أن المنتدى زاخر بمثل هذه الأعمال وتفضل تنفيذ بسيط لما طلبت ويمكن عمل 3 أو 4 شهادات في الورقة كما يمكن اضافة بعض التحسينات للعمل قومت بوضع الدالة الأساسية فقط في الملف نموذج للشهادة.xlsx

وعليكم السلام ورحمة الله وبركاته يمكن أن يفيدك هذا الفيديو من استاذنا الخلوق أحمد فاروقhttps://www.youtube.com/watch?v=2cy2YfmFlzQ وهذا هو الكود الذي تم الشرح عليه Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value <> "" Then ActiveSheet.Unprotect Password:="111" Target.Locked = True ActiveSheet.Protect Password:="111" End If End Sub

تفضل أستاذ @gavan محاولتي . PDF.rar

اخي مستر ستيف اليك هذا السطر من الكود وامسح جميع الاكواد الاخرى Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("*", "tbl1", "[B]=1 and [A]= form![A]") = 1 Then Cancel = B: MsgBox ("مكرر"): Undo End Sub تحياتي

السلام عليكم ورحمة الله وبركاته اعتقد ان دمج شرطين في شرط واحد قد يؤدي الى نتائج غير صحيحة . مثلا : الشرط الاول و الثاني 1 و12 الدمج =121 واذا كان الشروط في صف لاحق الشرط الاول و الثاني 21 و1 الدمج =121 وهو نفس الشرط المدمج السابق وبالتالي سوف تعيد الدالة الدمج الاول فقط . ويمكن حل هذا الاشكال بادراج فاصل في الدمج مثل 1-12 و21-1 في المرفق حل اخر اضافة الى حل الاخوة وباستخدام MATCH و INDEXكصفيف البحث بشروط.rar