yomix90 قام بنشر يناير 9, 2023 مشاركة قام بنشر يناير 9, 2023 السلام عليكم و رحمة الله تعالى و بركاته اخواني الكرام اود ان أطلب منكم المساعدة في اتمام هذا البرنامج الانى واجهت بعض الصعوبات 1- في نافدة " sorties " اريد اضافة زر مسح من قائمة المخرجات بالإضافة الى مسح هذه الكمية من جدول المخزن " stock " 2- امكانية البحت باسم المنتج " article " او الوجهة " destination " او كليهما Gestion de stock Test.zip رابط هذا التعليق شارك More sharing options...
yomix90 قام بنشر يناير 10, 2023 الكاتب مشاركة قام بنشر يناير 10, 2023 Private Sub Btn_supprimer_Click() Dim idArticle As Long idArticle = DLookup("id", "Stock", "article='" & Me.article & "'") Dim str As String, rs As Recordset If IsNull(Me.ID) Then Exit Sub str = "Delete from Sorties where id=" & Me.ID DoCmd.SetWarnings False DoCmd.RunSQL str Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id=" & Me.article) rs.Edit rs("Sortie") = rs("Sortie") - Me.Quantite rs.Update rs.Close DoCmd.SetWarnings True DoCmd.Requery MsgBox "Enregistrement Supprimé !", vbInformation, "" Form_Sorties.Requery Me.article = Null Me.Quantite = Null Me.Daate = Null Set rs = Nothing End Sub مشكل بهدا الجزء " Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id=" & Me.article) " رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 10, 2023 مشاركة قام بنشر يناير 10, 2023 تفضل أخي Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id=" & Me.article &" ") رابط هذا التعليق شارك More sharing options...
yomix90 قام بنشر يناير 10, 2023 الكاتب مشاركة قام بنشر يناير 10, 2023 شكرا اخيى الكريم لكن لازال المشكل قائم هل يمكنك تجربته بالملف المرفق رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 10, 2023 مشاركة قام بنشر يناير 10, 2023 الاستاذ خليفة غفل ان يضيف علامة التنصيص المفردة ليصبح السطر : Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id='" & Me.article &"'") جرب لعل تضبط معك رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 10, 2023 مشاركة قام بنشر يناير 10, 2023 باين عليا الكبر شاين رابط هذا التعليق شارك More sharing options...
yomix90 قام بنشر يناير 10, 2023 الكاتب مشاركة قام بنشر يناير 10, 2023 لم يتم حل المشكل 😢 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 10, 2023 مشاركة قام بنشر يناير 10, 2023 تفضل أخي أنا جربت عندي Private Sub btn_supprimer_Click() Dim rs As Recordset, Quantite As Long Set rs = CurrentDb.OpenRecordset("SELECT * FROM Sorties WHERE id=" & Me.txt_id & " ") If Not rs.EOF Then Quantite = rs("Quantite") rs.Close DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM Sorties WHERE id=" & Form_Sorties.txt_id DoCmd.RunSQL "UPDATE Stock SET Sortie=Sortie-" & Quantite & " WHERE id=" & Me.txt_id & " " DoCmd.SetWarnings True Form_Sorties.Requery Else MsgBox "L'enregistrement que vous essayez de supprimer n'existe pas !", vbCritical, "Erreur" End If Set rs = Nothing End Sub رابط هذا التعليق شارك More sharing options...
yomix90 قام بنشر يناير 10, 2023 الكاتب مشاركة قام بنشر يناير 10, 2023 me.txt_id خاص بالمنتجات الصادرة ليس للمنتجات الموجودة بالمخزن عند ازالة منتج من الصادرات حسب ID الخاص به فهو يزيل منتوج لا علاقة له يجب اخالته حسب المنتج Article رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر يناير 11, 2023 مشاركة قام بنشر يناير 11, 2023 استاذي انا مهمتي ضبط الكود كي يعمل وأنت أدرى بالباقي رابط هذا التعليق شارك More sharing options...
yomix90 قام بنشر يناير 11, 2023 الكاتب مشاركة قام بنشر يناير 11, 2023 شكرا لك وجدت الحل رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان