مساعدة في حل بعض المشاكل في برنامج تدبير المخزن

[yomix90]

السلام عليكم و رحمة الله تعالى و بركاته

اخواني الكرام اود ان أطلب منكم المساعدة في اتمام هذا البرنامج الانى واجهت بعض الصعوبات

1- في نافدة " sorties "  اريد اضافة زر مسح من قائمة المخرجات بالإضافة الى مسح هذه الكمية من جدول المخزن " stock "  

2- امكانية البحت باسم المنتج " article "  او الوجهة " destination " او كليهما

Gestion de stock Test.zip

[yomix90]

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) "

[kkhalifa1960]

تفضل أخي 

Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id=" & Me.article &" ")

[yomix90]

شكرا اخيى الكريم لكن لازال المشكل قائم 
هل يمكنك تجربته  بالملف المرفق

[ابوخليل]

الاستاذ خليفة  غفل ان يضيف علامة التنصيص المفردة ليصبح السطر :

Set rs = CurrentDb.OpenRecordset("Select * From Stock Where id='" & Me.article &"'")

جرب لعل تضبط معك

[kkhalifa1960]

باين عليا الكبر شاين 

[yomix90]

لم يتم حل المشكل 😢

[kkhalifa1960]

تفضل أخي أنا جربت عندي

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
 

[yomix90]

me.txt_id خاص بالمنتجات الصادرة ليس للمنتجات الموجودة بالمخزن عند ازالة منتج من الصادرات حسب ID الخاص به فهو يزيل منتوج لا علاقة له 

يجب اخالته حسب المنتج Article

[kkhalifa1960]

استاذي انا مهمتي ضبط الكود كي يعمل وأنت أدرى بالباقي 

[yomix90]

شكرا لك وجدت الحل