Shivan Rekany

اتفضل استخدمت هذا الكود Private Sub أمر9_Click() On Error Resume Next Dim sql As String DoCmd.SetWarnings (warningsoff) sql = "UPDATE جدول_المواد SET جدول_المواد.[حد الرسوب] = [Forms]![نموذج_الطالب]![جدول_الدرجة نموذج فرعي].[Form]![حد الرسوب]" & _ "WHERE (((جدول_المواد.[رقم المادة])=[Forms]![نموذج_الطالب]![جدول_الدرجة نموذج فرعي].[Form]![رقم المادة]));" Dim r As Integer r = DCount("[رقم المادة]", "q1", "[رقم الطالب]=" & Me.رقم_الطالب) Forms![نموذج_الطالب]![جدول_الدرجة نموذج فرعي].SetFocus DoCmd.GoToRecord , , acFirst For i = 0 To r DoCmd.RunSQL (sql) DoCmd.GoToRecord , , acNext Next i DoCmd.SetWarnings (warningson) End Sub واليك الملف بعد تعديل stu (1).rar

اخ محمد ابو عبدالله السلام عليكم ورحمة الله وبركاته نريد نسأل كيف تعرف كل درجة في جدول الطلاب هو لأي مادة ثانيا هناك سؤال اخر كما رأيت انا ان لكل مواد بها نفس الارقام لحد المقبول والجيد و جيد جدا و ممتاز هل سيغير احد من الارقام لمادة فقط او سيكون ثابت اي يعني سيكون لكل مادة حد محدد تقبل تحياتي

هناك سؤالين اعطيني جواب الصحيح لكي اعطيك الكود الصحيح 1 : متعلق بصورة الاولى : عند اضافة طالب جديد و تعطيه الحد الرسول للمادة مثلا مادة اكسس ، هل تريد ان يعمل تحديث لكل طلاب مادة الاكسس و يعمل تحديث لجدول المادة مادة اكسس ام تريد يعمل تحديث فقط لجدول المادة ؟ 2 : متعلق بالصورة الثانية : حين تكود على سجل مثلا جعفر وعنده ثلال مادة مثلا وتم تحديد مادة وورد هل تريد ان يعمل تحديث لكل المواد او فقط مادة وورد فقط ؟

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

كان عندي لكن للاسف بعد عملت تجربة على جهازي و عملت فورمات بعد ما اشوفه في جهازي ما اعرف وين خزنته لكن سابحث عنه لك

نعم بالضبط استاذ @عبد الفتاح كيرة If len(Text01) > 10 Then

كما قلت سابقا للأسف ما عندي الاجهزة المطلوبة لكي اعمل عليها تجارب لكن بعد بحث في المنتدى الاجنبية حصلت على هذا النموذج يقوم بعمل سكانر بواسطة ويا لكن للاسف ما اقدرت ان اجربه لذا سارفع لكم و جرب لعل وعسى ان نستفيد منه تقبلوا تحياتي SCANVBA.rar

استأذن من استاذنا وحبيبنا @ابا جودى على المداخلة اتفضل اخي انا استخدمت هذين الكودين Private Sub Rajmsanf_DblClick(Cancel As Integer) If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmsanf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then MsgBox "المادة مكررة" Cancel = -1 Else Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf DoCmd.close Forms![فاتوره مشتريات].SetFocus Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus DoCmd.Requery DoCmd.GoToRecord , , acNewRec Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus End If End Sub Private Sub Rajmsanf_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmsanf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then MsgBox "المادة مكررة" Cancel = -1 Else Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf DoCmd.close Forms![فاتوره مشتريات].SetFocus Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus DoCmd.Requery DoCmd.GoToRecord , , acNewRec Forms![فاتوره مشتريات]![تابع23]![Rajmasnf].SetFocus End If '13 End If ' DCount End Sub لكن لا اعرف ما هو حقلين للسعر على الرغم كل شي اتفضل اليك قاعدة بياناتك بعد تعديل 1111111.rar

نسیت ان اعدل فی تلک النموذج ايضا ذكرني غدا ان شاء الله راح اعملك المطلوب

مرة اخرى استأذن من استاذنا @ابا جودى على المداخلة اتفضل استخدمت هذا الكود Private Sub Rajmasnf_BeforeUpdate(Cancel As Integer) If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmasnf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then MsgBox "المادة مكررة" Me.Undo ElseIf DCount("[Rajmsanf]", "[alsnaf]", "[Rajmsanf]='" & Me.Rajmasnf & "'") < 1 Then MsgBox "ليس لدينا هذا الرقم" Me.Undo End If End Sub بيعمل لك كلا من طلبين واتفضل قاعدة بياناتك بعد تعديل 1111111.rar

استغفر الله اخي الغالي ... اللهم امين اجمعين جزاك الله الفردوس الاعلى

تقدر تستخدم هذا الكود بعد تحديث لمربع ادخال التاريخ فيه Private Sub date__AfterUpdate() Me.date_ = Me.date_ - 1 End Sub

استأذن من استاذنا @ابا جودى اتفضل استخدمت هذا الكود قبل تحديث Private Sub Rajmasnf_BeforeUpdate(Cancel As Integer) If DCount("[Rajmsanf]", "[HRAKATSANF]", "[Rajmsanf]='" & Me.Rajmasnf & "'" & "AND [Rjmfatwra]=" & Forms![فاتوره مشتريات]![Rjmfatwra]) > 0 Then MsgBox "المادة مكررة" Me.Undo End If End Sub 1111111.rar

مشاكة مع استاذي الحبيب @محمد سلامة اتفضل اكو برامج باسم 3D Button Creator Gold تقبل تحياتي

لا تستخدم كل الكود بل استخدم بعض منها اي لا استخدم كود التجميع منه

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

اتفضل استخدمت هذا الكود عند الضغط على زر انتر If KeyCode = 13 Then Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf DoCmd.close End If واستخدمت هذا عند دبل كليك Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf DoCmd.close اتفضل مع القاعدة بعد اضافة كود الاعلاه الاضافه على الفاتوره.rar

اعتذر منك بشدة انا لا اعرف شي حتى اعمل تقييم لمشروع لذا تقدر تفتح موضوع جديد و تطلب من الخبراء و المشرفين ان يعملوا تقييم لمشروعك تقبل تحياتي لكي لا يزيد من مشاركاتي عملت تعديل على هذه المشاركة مثلا عندك مربع نص باسم Text1 اكتب في مصدره = Format(Date();"YYYY") او في محرر الاكواد اكتب Text1 = Format(Date();"YYYY")

اتفضل استخدمت هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim sql As String If DCount("[ItemID]", "[InvoiceDetails Table]", "[InvoiceID]=" & Me.InvoiceID & "and [ItemID]=" & Me.ItemID) > 0 Then sql = "UPDATE [InvoiceDetails Table] SET [InvoiceDetails Table].Quantity = [InvoiceDetails Table]![Quantity]+[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] WHERE ((([InvoiceDetails Table].InvoiceID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID]) AND (([InvoiceDetails Table].ItemID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID]));" DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) Me.Undo DoCmd.SetWarnings (warningson) End If End Sub واليك قاعدة بياناتك بعد تعديل invoice.rar

اتفضل استخدمت هذا الكود Dim Sql As String Sql = "UPDATE ItemsT SET ItemsT.item_available = 0;" If MsgBox("هل تريد ان تفريغ البيانات حقل الكمية المتوفرة", vbYesNo + vbMsgBoxRight, "اخر تنبيه") = vbYes Then DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (Sql) DoCmd.SetWarnings (warningson) Me.Refresh End If اي اضفت رسالة نعم ولا لكي لا يتم التفريغ بدون رسالة الحذر و بدلت علامة "" الى صفر كما قال استاذنا @ابو خليل لان الحقل هو رقمي وتكدر تستخدم علامة ايضا لكن من الاحسن ان يكون صفر اتفضل قاعدة بياناتك بعد اضافة الكود الاعلاه Items.rar

ارفق القاعدة لكي نتم العملية عليه

اتفضل اليك هذا الكود اضععه قبل تحديث If DCount("[First Name]", "[Family Members]", "[First Name]='" & Me.First_Name & "'" & _ "and [Last Name]='" & Me.Last_Name & "'" & "and [Father Name]='" & Me.Father_Name & "'" & _ "and [Mother Name]='" & Me.Mother_Name & "'") > 0 Then MsgBox "الاسم مكرر" Cancel = -1 End If واليك ملفك بعد تعديل منع التكرار.zip

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

اتفضل اليك هذا الكود DoCmd.OutputTo acOutputReport, "rptTransfer", acFormatPDF, strPathAndfile & "rptTransfer" & Format(Me.Text18, "yyyy") & "-" & Format(Me.Text18, "mm") & "-" & Format(Me.Text18, "dd") & ".pdf", True ولا تقول انه لا يشتغل عندي لاني انا جربت بعدين ارسلت لك واليك ملفك بعد تعديل 2017.rar

اكتب الكود هكذا DoCmd.OutputTo acOutputReport, "rptTransfer", "PDF Format (*.pdf)", strPathAndfile, True