اضافه القيم بالجدول من النموذج وزياده قيمه حقل ان وجدت من قبل

[النجاشي]

السلام عليكم احبتي الكرام 

اريد  اضافه من النموذج للجدول 

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

تحياتي احبتي

اضافه تعديل.accdb

[Shivan Rekany]

21 ساعات مضت, ابو زاهر said:

اريد  اضافه من النموذج للجدول 

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

اتفضل هل تريد هذا

Private Sub ID_Sanf_AfterUpdate()
    Dim Teakid As String
    Teakid = Nz(DLookup("[ID_Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'"), "")
    If Teakid <> "" Then
'        Me.ID = DLookup("[ID]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")
        Me.Sanf = DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")
        Me.rsdaolalmdh = DLookup("[rsdaolalmdh]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")
    Else
        Me.Sanf = ""
        Me.rsdaolalmdh = ""
    End If
End Sub

Private Sub أمر13_Click()
    Dim StrSql As String
    If DCount("[ID_Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'") > 0 Then
        StrSql = "UPDATE Alsnaf SET Alsnaf.Sanf = [Forms]![افتتاحي]![Sanf], Alsnaf.rsdaolalmdh = [Forms]![افتتاحي]![rsdaolalmdh]WHERE (((Alsnaf.ID_Sanf)=[Forms]![افتتاحي]![ID_Sanf]));"
        MsgBox "تم تحديث الصنف "
    Else
        StrSql = "INSERT INTO Alsnaf ( ID_Sanf, Sanf, rsdaolalmdh ) SELECT [Forms]![افتتاحي]![ID_Sanf] , [Forms]![افتتاحي]![Sanf] , [Forms]![افتتاحي]![rsdaolalmdh] ;"
        MsgBox "تم حفظ صنف جديد"
    End If
    DoCmd.SetWarnings False
    DoCmd.RunSQL (StrSql)
    DoCmd.SetWarnings True
    Me.ID_Sanf = ""
    Me.Sanf = ""
    Me.rsdaolalmdh = ""
End Sub

 

اضافه تعديل.accdb

[ابو ياسين المشولي]

منذ ساعه, Shivan Rekany said:

اتفضل هل تريد هذا

Private Sub ID_Sanf_AfterUpdate()
    Dim Teakid As String
    Teakid = Nz(DLookup("[ID_Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'"), "")
    If Teakid <> "" Then
'        Me.ID = DLookup("[ID]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")
        Me.Sanf = DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")
        Me.rsdaolalmdh = DLookup("[rsdaolalmdh]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")
    Else
        Me.Sanf = ""
        Me.rsdaolalmdh = ""
    End If
End Sub

Private Sub أمر13_Click()
    Dim StrSql As String
    If DCount("[ID_Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'") > 0 Then
        StrSql = "UPDATE Alsnaf SET Alsnaf.Sanf = [Forms]![افتتاحي]![Sanf], Alsnaf.rsdaolalmdh = [Forms]![افتتاحي]![rsdaolalmdh]WHERE (((Alsnaf.ID_Sanf)=[Forms]![افتتاحي]![ID_Sanf]));"
        MsgBox "تم تحديث الصنف "
    Else
        StrSql = "INSERT INTO Alsnaf ( ID_Sanf, Sanf, rsdaolalmdh ) SELECT [Forms]![افتتاحي]![ID_Sanf] , [Forms]![افتتاحي]![Sanf] , [Forms]![افتتاحي]![rsdaolalmdh] ;"
        MsgBox "تم حفظ صنف جديد"
    End If
    DoCmd.SetWarnings False
    DoCmd.RunSQL (StrSql)
    DoCmd.SetWarnings True
    Me.ID_Sanf = ""
    Me.Sanf = ""
    Me.rsdaolalmdh = ""
End Sub

 

اضافه تعديل.accdb

بعد اذنك اخي شيفان

اظنه قال اذا وجد الصنف يضاف له اللي في النموذج

بيكون هكذا

        StrSql = "UPDATE Alsnaf SET Alsnaf.Sanf =[Forms]![ÇÝÊÊÇÍí]![Sanf], Alsnaf.rsdaolalmdh =rsdaolalmdh+ [Forms]![ÇÝÊÊÇÍí]![rsdaolalmdh]WHERE (((Alsnaf.ID_Sanf)=[Forms]![ÇÝÊÊÇÍí]![ID_Sanf]));"

 

[النجاشي]

1 ساعه مضت, Shivan Rekany said:

اتفضل هل تريد هذا

Private Sub ID_Sanf_AfterUpdate()
    Dim Teakid As String
    Teakid = Nz(DLookup("[ID_Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'"), "")
    If Teakid <> "" Then
'        Me.ID = DLookup("[ID]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")
        Me.Sanf = DLookup("[Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")
        Me.rsdaolalmdh = DLookup("[rsdaolalmdh]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'")
    Else
        Me.Sanf = ""
        Me.rsdaolalmdh = ""
    End If
End Sub

Private Sub أمر13_Click()
    Dim StrSql As String
    If DCount("[ID_Sanf]", "Alsnaf", "[ID_Sanf]='" & Me.ID_Sanf & "'") > 0 Then
        StrSql = "UPDATE Alsnaf SET Alsnaf.Sanf = [Forms]![افتتاحي]![Sanf], Alsnaf.rsdaolalmdh = [Forms]![افتتاحي]![rsdaolalmdh]WHERE (((Alsnaf.ID_Sanf)=[Forms]![افتتاحي]![ID_Sanf]));"
        MsgBox "تم تحديث الصنف "
    Else
        StrSql = "INSERT INTO Alsnaf ( ID_Sanf, Sanf, rsdaolalmdh ) SELECT [Forms]![افتتاحي]![ID_Sanf] , [Forms]![افتتاحي]![Sanf] , [Forms]![افتتاحي]![rsdaolalmdh] ;"
        MsgBox "تم حفظ صنف جديد"
    End If
    DoCmd.SetWarnings False
    DoCmd.RunSQL (StrSql)
    DoCmd.SetWarnings True
    Me.ID_Sanf = ""
    Me.Sanf = ""
    Me.rsdaolalmdh = ""
End Sub

 

اضافه تعديل.accdb

الف الف شكر اليك يابو محمد ربنا يعطيك العافيه وكل من تحب يالغالي 

نعم هو المطلوب  تحياتي اليك 

لقد اضاف ملاحظه ابو ياسين  يزود الكميه وهو شي جيد  ولكن كا الطرق ممتازه وتحل مشكلتي 

اشكرك من كل قلبي احبتي شفان وابو ياسين

لكم اجمل تحيه

48 دقائق مضت, ابو ياسين المشولي said:

بعد اذنك اخي شيفان

اظنه قال اذا وجد الصنف يضاف له اللي في النموذج

بيكون هكذا

        StrSql = "UPDATE Alsnaf SET Alsnaf.Sanf =[Forms]![ÇÝÊÊÇÍí]![Sanf], Alsnaf.rsdaolalmdh =rsdaolalmdh+ [Forms]![ÇÝÊÊÇÍí]![rsdaolalmdh]WHERE (((Alsnaf.ID_Sanf)=[Forms]![ÇÝÊÊÇÍí]![ID_Sanf]));"

 

دوما وانت ما تقصر يابو ياسين اظن الاستاذ شفان لم يدقق كثير في المطلوب ولكن ما قصر يودي الغرض بنجاح الف تحيه له واليك