النجاشي قام بنشر أكتوبر 21, 2018 مشاركة قام بنشر أكتوبر 21, 2018 السلام عليكم احبتي الكرام اريد اضافه من النموذج للجدول واذا اذا اخلت نفس الصنف مره اخري يعطينا اسمه ويزود كميه الافتتاح فوق السابقه تحياتي احبتي اضافه تعديل.accdb رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أكتوبر 22, 2018 مشاركة قام بنشر أكتوبر 22, 2018 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 1 رابط هذا التعليق شارك More sharing options...
ابو ياسين المشولي قام بنشر أكتوبر 22, 2018 مشاركة قام بنشر أكتوبر 22, 2018 منذ ساعه, 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 1 رابط هذا التعليق شارك More sharing options...
النجاشي قام بنشر أكتوبر 22, 2018 الكاتب مشاركة قام بنشر أكتوبر 22, 2018 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]));" دوما وانت ما تقصر يابو ياسين اظن الاستاذ شفان لم يدقق كثير في المطلوب ولكن ما قصر يودي الغرض بنجاح الف تحيه له واليك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان