عند اختيار صنف معين فى فاتوره البيع

[محمد سعيد رشاد]

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

Dim Rs As DAO.Recordset
'اسم الجدول
   Set Rs = CurrentDb.OpenRecordset("analysis")
   'البحث عن رقم السجل المعدل
   Rs.MoveFirst
   Do Until Rs.EOF
   'اذا وجد السجل
    If Rs!Analysis = [Analysis] Then
    'تحريره
         Rs.Edit
         'القيمه
         Rs!rsed = rsd
                       
         Rs.Update
          End If
   Rs.MoveNext
   Loop
   Set Rs = Nothing
استخدم هذا الكود للخصم من الرصيد فى جدول اناليسيس 
واريد استخدامه فى الخصم من الرصيد لاناليسي اخر
بمعنى اذا كان  اناليسيس الفورم يساوى زمن النزيف يقوم بالخصم من رصيد اناليسيس اخر وهو الشكاكات مثلا 
بمعنى ابسط اريد عند اختيار صنف معين فى فاتوره البيع ان يخصم من نفس الصنف و صنف اخر فى نفس الوقت ارجو ان اكون قد وفقت فى طرح طلبى وجزاكم الله خيرا مقدما