مطلوب كود إضافة و تعديل سجلات جدول من خلال نموذج يحتوى على كومبوبكس

[أحمد العيسى]

السلام عليكم
فى المرفقات مثال بسيط  يحتوى على جدول (به حقلين فقط ) يأخذ منه مربع السرد بالنموذج محتوياته

المطلوب تفضلاً  عمل زر أمر على النموذج لإضافة سجلات جديدة أو حذف السجل المختار من قائمة السرد
وحفظ التحديثات فى جدول  tbl_Class_Name   ثم تحديث محتويات الكومبوبكس
تحياتى مقدماً لحضراتكم

db1.rar

[أحمد العيسى]

أعلم أن الإجراءات التى سوف يتم عملها غالباً

SQL  لاستعلام إلحاق ، استعلام حذف ، استعلام تحديث

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

=========================================

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

هل من مساعدة !!!

db2.rar

تم تعديل نوفمبر 25, 2017 بواسطه أحمد العيسى

[obaid70]

ربما اكون توصلت الى حل مرضي ........ يارب

db3.rar

[obaid70]

هذا تعديل على حل الاخ احمد العيسى

db4.rar

[أحمد العيسى]

مشكور أخى الكريم

الملف  db3.rar  تم استخدام استعلام الحذف فيه مع الماكرو بشكل سوف استفيد منه بالتأكيد

الملف  db4.ra  (وهو المقضل عندى) الحذف به يحتاج إلى تعديل ، لأنه يقوم بحذف أعلى قائمة الكمبو  ، وليس الذى تم اختياره

تم تعديل نوفمبر 25, 2017 بواسطه أحمد العيسى

[jjafferr]

السلام عليكم

 

بالنسبة للحذف ، استعمل هذه الكود:

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

[أحمد العيسى]

بارك الله فيك أخى جعفر

تم حل المشكلة

تحياتى وتقديرى لك