أبوبسمله

السلام عليكم ورحمه الله وبركاته اخى الفاضل @أكسس وبس لو بحثت بالمنتدى لوجدت الكثير من المواضيع اتفضل اطلع ع المشاركه التاليه لمعلمنا العزيز جعفر جزاه الله عنا كل خير وعدل على مثالك بالتوفيق

بالتوفيق ان شاء الله الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير ارفق لنا صور الخطأ الذى ظهر لك للافاده من قبل اخوانك واساتذتنا بالتوفيق

حمدالله على السلامه اخى ومعلمى العزيز جعفر 💐 وفى انتظار مفاجئاتك

السلام عليكم ورحمه الله وبركاته اخى الفاضل @MEMO2008 اولا دعنا نتشرف باسمك لنناديك باحب الاسماء لك ومرحبا بك معنا فى قسم الاكسيس ثانيا بعض التوجيهات قبل الاجابه على سؤالك يجب تسميه جميع الكائنات والحقول باللغه الانجليزيه وتستطيع استخدام اللغه العربيه فالتسميه التوضيحيه وذلك لتسهل على نفسك كتابه الاكواد لان اللغه العربيه بتخلف كتابه الكود واليك التعديل ع مثالك بعد اختيار رقم السياره سيتم جلب اخر قيمه حاليه تم تسجيلها لها ووضعها بالقيمه السابقه للسجل الجديد 'الحالية 'تسجيل القراءة 'رقم السيارة Private Sub txtCar_AfterUpdate() Me.txtSabk = DLast("الحالية", "[تسجيل القراءة]", "[رقم السيارة]=" & Me.txtCar) End Sub بالتوفيق 3A_سيارات.accdb

السلام عليكم ورحمه الله وبركاته مشاركه مع الاستاذ @عمر ضاحى جزاه الله خيرا تم اضافه المعيار التالى فاستعلام الالحاق وهو استعلام فرعى لاضافه الغير موجود بجدول SUP Not In (SELECT SUP.CONTRACT_FILE FROM SUP;) بالتوفيق SUP_3A.accdb

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

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

وفيك بارك الله اخى والشكر لله ثم لاخواننا واساتذتنا الذين نتعلم منهم بالتوفيق

اتفضل ان شاء الله يكون ما تريد Private Sub Command2_Click() If DCount("*", "[Students]", "[ID]=" & Me.Text0) > 0 Then Dim rst As DAO.Recordset Dim fld As Field Dim a As Integer Set rst = CurrentDb.OpenRecordset("SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & _ "FROM Students " & _ "WHERE (((Students.ID)=" & [Forms]![Form]![Text0] & "));") For a = 1 To rst.RecordCount For Each fld In rst.Fields If IsNull(fld.Value) Then If fld.Name = "Fullname" Or fld.Name = "tel" Then x = fld.Name & vbCrLf & x End If End If Next fld rst.MoveNext Next a If Len(x & "") <> 0 Then MsgBox "All Fields Null :" & vbCrLf & x, vbOKOnly, "انتبه" rst.Close: Set rst = Nothing End If End Sub بالتوفيق exap3_3A.accdb

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

الشكر لله ثم لاخوانننا واساتذتنا جزاهم الله عنا كل خير اتفضل التعديل على تعديلك لكود اخى واستاذى @kanory جزاه الله خيرا Private Sub Command2_Click() If DCount("*", "[Students]", "[ID]=" & Me.Text0) > 0 Then Dim rst As DAO.Recordset Dim fld As Field Dim a As Integer Set rst = CurrentDb.OpenRecordset("SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & _ "FROM Students " & _ "WHERE (((Students.ID)=" & [Forms]![Form]![Text0] & "));") For a = 1 To rst.RecordCount For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox "فارغ " & fld.Name & " حقل", vbOKOnly + vbMsgBoxRight, "انتبه" End If Next fld rst.MoveNext Next a rst.Close: Set rst = Nothing End If End Sub بالتوفيق

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير فهى نفس الخطوات التى شرحتها سابقا عند وضع المثال DoCmd.RunCommand acCmdSaveRecord وما كان يوقف العمل هو عدم تفعيل الماكرو ولم تكن تراه لان النموذج يفتح فى وضع التكبير بالتوفيق

السلام عليكم ورحمه الله وبركاته مشاركه مع اخى واستاذى ووالدى الحبيب @مبرمج سابق جزاه الله عنا كل خير 💐🌹 وعلى الرغم باننى لست احد الاساتذه فقد احببت مشاركتكم للتعلم والاستفاده فقد مزجت بين كود معلمى ووالدى الحبيب وبين الكود السابق بالمثال لرغبه الاخ السائل الكود التالى والمرفق بالمثال Private Sub Command2_Click() Dim n As Integer n = IIf(IsNull([Text0]), 0, [Text0]) If DCount("*", "[Students]", "[ID]=" & n) = 0 Then MsgBox "هذا القيد غير موجود": Exit Sub Dim rst As Recordset Dim fld As Field Set rst = Me.RecordsetClone rst.FindFirst "[ID]=" & [n] For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox fld.Name DoCmd.OpenForm "frm_Stud", , , "[id]=" & [n] Exit Sub End If Next fld DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO Team ( ID, Fullname, tel, Degree, class ) " & vbCrLf & _ "SELECT Students.ID, Students.Fullname, Students.tel, Students.Degree, Students.class " & vbCrLf & _ "FROM Students " & vbCrLf & _ "WHERE (((Students.ID)=[Forms]![Form]![Text0]));" DoCmd.SetWarnings True Me.Text0 = "" Me.Text0.SetFocus End Sub وتعديل بسيط ع كود معلمى ووالدى الحبيب جزاه الله عنا كل خير وهو اخراج جزء الاضافه لما بعد فحص الحقول Private Sub Command2_Click() Dim n As Integer n = IIf(IsNull([Text0]), 0, [Text0]) If DCount("*", "[Students]", "[ID]=" & n) = 0 Then Exit Sub Dim rst As Recordset Dim rs As Recordset Dim fld As Field Set rst = Me.RecordsetClone Set rs = CurrentDb.OpenRecordset("team") rst.FindFirst "[ID]=" & [Text0] For Each fld In rst.Fields If IsNull(fld.Value) Then MsgBox fld.Name DoCmd.OpenForm "frm_Stud", , , "[id]=" & [Text0] Exit Sub End If Next fld rs.AddNew rs.Fields(0) = rst.Fields(0) rs.Fields(1) = rst.Fields(1) rs.Fields(2) = rst.Fields(2) rs.Fields(3) = rst.Fields(3) rs.Fields(4) = rst.Fields(4) rs.Update rs.Close: rst.Close Set rs = Nothing: Set rst = Nothing End Sub تقبلوا تحياتى ومرورى Example_1.accdb

هلا بيك ابوعبدالله بالنسبه للخطأ لا اعلم صراحه لماذا قام باعطائك خطأ على date ربما يكون مشكله بالاوفيس وان شاء الله احد الاخوه واساتذتنا يفيدنا عالعموم قمت باستيراد المثال على قاعده بيانات جديده جربها ان اعطاك نفس الخطأ فجرب تجربه المثالين على جهاز اخر ثم قم بازاله الاوفيس ثم قم بتسطيبه مره اخرى وجرب بالتوفيق test.accdb

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

وعليكم السلام تم التعديل على جمله الاستعلام بالتوفيق اضافة مرفق الخطة.accdb

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

السلام عليكم مشاركه مع اخوانى واساتذتى جزاهم الله خيرا وردا على الاخ @2000ابوعبدالله هذه الفكره خاطئه لان الاكسيس بيقوم بعمل حفظ تلقائى فيجب ان يظهر معك فى هذه الحاله عالعموم قمت باضافه الحفظ لزر فتح البحث وقمت باضافه المرجع الناقص للقاعده لمن اراد بالتوفيق Desktop.rar

اها طيب خلينا نرجع لاول مثال وببساطه قمت بالغاء القيمه الافتراضيه للتاريخ بالجدول فعند فتح النموذج ستجد خيار جديد غير نشط وبعد اختيار التاريخ ستجد انه تم تنشيط الخيار مره اخرى ويمكنك التسجيل بالفرعى ولكن بعد اختيار التاريخ بالاعلى هل هذا ما تريد ؟ بالتوفيق 1_4.accdb

السلام عليكم ورحمه الله وبركاته اطلع ع المثال ربما يفى بالغرض ان لم يكن كذلك فاطلع عالموضوع الذى اشار اليك به اخى واستاذى العزيز @kanory بالتوفيق example.mdb

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

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

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

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

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله عنا كل خير 💐 اهلا بك اخى واستاذى العزيز @Moosak وجزاك الله خيرا على مشاركتك معنا والله يجبر بخاطرك كما تجبر بخاطر طالب علم مبتدىء مثلى 💐 نعم كما اشار اليك اخى موسى لست مع هذه الجمله 👇 ولكن ان اردت فسوف تقوم باضافه الاستدعاء كما اشار لك اخى موسى فى حدث بعد التحديث او عند الخروج كما تحب انا ضفته فى حقل واحد وهو كتابه التكلفه بعد الخروج من الحقل مع اضافه بسيطه للكود وهى فى 3 سطر لحفظ السجل حتى يتم الحساب DoCmd.RunCommand acCmdSaveRecord Private Sub btnCount_Click() If IsNull(Me.كود_المشروع) Then Exit Sub DoCmd.RunCommand acCmdSaveRecord x = Me.كود_المشروع strSql = "SELECT [MAIN-TABLE].*, [MAIN-TABLE].[كود المشروع] " & _ "FROM [MAIN-TABLE] " & _ "WHERE [MAIN-TABLE].[كود المشروع]=" & x Dim rs As Recordset Set rs = CurrentDb.OpenRecordset(strSql) i = 0 For y = 0 To rs.Fields.Count - 1 If rs.Fields(y).Value = "NA" Or rs.Fields(y).Value = Chr(34) & "NA" & Chr(34) Then i = i + 1 End If Next Me.txtCount = i End Sub Private Sub Form_Current() btnCount_Click End Sub Private Sub التكلفة_كتابةً_Exit(Cancel As Integer) btnCount_Click End Sub بالتوفيق Database1(1)(1).accdb