أحمد العيسى قام بنشر نوفمبر 25, 2017 مشاركة قام بنشر نوفمبر 25, 2017 السلام عليكم فى المرفقات مثال بسيط يحتوى على جدول (به حقلين فقط ) يأخذ منه مربع السرد بالنموذج محتوياته المطلوب تفضلاً عمل زر أمر على النموذج لإضافة سجلات جديدة أو حذف السجل المختار من قائمة السرد وحفظ التحديثات فى جدول tbl_Class_Name ثم تحديث محتويات الكومبوبكس تحياتى مقدماً لحضراتكم db1.rar رابط هذا التعليق شارك More sharing options...
أحمد العيسى قام بنشر نوفمبر 25, 2017 الكاتب مشاركة قام بنشر نوفمبر 25, 2017 (معدل) أعلم أن الإجراءات التى سوف يتم عملها غالباً SQL لاستعلام إلحاق ، استعلام حذف ، استعلام تحديث لكن كيف يمكن حذف أو تحديث ما يتم اختياره بالذات فى الكومبوبكس ؟؟ ========================================= وجدت وسيلة أخرى للإضافة غير استخدام استعلام الحاق، لكن لم أتمكن من تصحيح كود الحذف بنفس الطريقة هل من مساعدة !!! db2.rar تم تعديل نوفمبر 25, 2017 بواسطه أحمد العيسى 1 رابط هذا التعليق شارك More sharing options...
obaid70 قام بنشر نوفمبر 25, 2017 مشاركة قام بنشر نوفمبر 25, 2017 ربما اكون توصلت الى حل مرضي ........ يارب db3.rar رابط هذا التعليق شارك More sharing options...
obaid70 قام بنشر نوفمبر 25, 2017 مشاركة قام بنشر نوفمبر 25, 2017 هذا تعديل على حل الاخ احمد العيسى db4.rar رابط هذا التعليق شارك More sharing options...
أحمد العيسى قام بنشر نوفمبر 25, 2017 الكاتب مشاركة قام بنشر نوفمبر 25, 2017 (معدل) مشكور أخى الكريم الملف db3.rar تم استخدام استعلام الحذف فيه مع الماكرو بشكل سوف استفيد منه بالتأكيد الملف db4.ra (وهو المقضل عندى) الحذف به يحتاج إلى تعديل ، لأنه يقوم بحذف أعلى قائمة الكمبو ، وليس الذى تم اختياره تم تعديل نوفمبر 25, 2017 بواسطه أحمد العيسى رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر نوفمبر 26, 2017 مشاركة قام بنشر نوفمبر 26, 2017 السلام عليكم بالنسبة للحذف ، استعمل هذه الكود: Private Sub Cmdel_Click() On Error GoTo Err_Cmdel_Click Dim mySQL As String Dim Msg, Style, Title, Response Msg = ":ستقوم الآن بحذف السجل " & vbCrLf & vbCrLf & _ Me.cbo_Class & vbCrLf & " " & vbCrLf & _ "هل أنت متأكد ؟" & vbCrLf & _ "أضغط ( نعم ) للإستمرار ، أو ( لا ) لإلغاء الأمر" Style = vbQuestion + vbYesNo + vbMsgBoxRight Title = "تحذيـــر" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then mySQL = "DELETE * FROM tbl_Class_Name WHERE strClass = '" & Me.cbo_Class & "'" CurrentDb.Execute mySQL Me.cbo_Class.Requery Me.cbo_Class.Value = Me.cbo_Class.Column(0, 0) End If Exit_Cmdel_Click: Exit Sub Err_Cmdel_Click: MsgBox Err.Description Resume Exit_Cmdel_Click End Sub . وبالنسبة لإظهار المادة التي اضفتها في النموذج الاخر ، استعمل هذا الكود: Private Sub أمر2_Click() On Error GoTo Err_أمر2_Click Forms!frm_Section!cbo_Class.Requery DoCmd.Close Exit_أمر2_Click: Exit Sub Err_أمر2_Click: MsgBox Err.Description Resume Exit_أمر2_Click End Sub . جعفر 758.1.db1.mdb.zip 1 رابط هذا التعليق شارك More sharing options...
أحمد العيسى قام بنشر نوفمبر 26, 2017 الكاتب مشاركة قام بنشر نوفمبر 26, 2017 بارك الله فيك أخى جعفر تم حل المشكلة تحياتى وتقديرى لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.