السلام عليكم
ورحمه الله وبركاته
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
استخدم هذا الكود للخصم من الرصيد فى جدول اناليسيس
واريد استخدامه فى الخصم من الرصيد لاناليسي اخر
بمعنى اذا كان اناليسيس الفورم يساوى زمن النزيف يقوم بالخصم من رصيد اناليسيس اخر وهو الشكاكات مثلا
بمعنى ابسط اريد عند اختيار صنف معين فى فاتوره البيع ان يخصم من نفس الصنف و صنف اخر فى نفس الوقت ارجو ان اكون قد وفقت فى طرح طلبى وجزاكم الله خيرا مقدما