(17-12-2021, 11:02)beyza60 demiş ki: merhabalar bunun üzerinde depo girişinin altına girilen  malzemelerin kaç para yaptığını toplamını yazmasını istiyorum

.birde depo çıkışında olmayan malzemeyi(depo girişinde olmayan)i çıkış yapmasın gibi uyarı versin bunu nasıl yapabilirm

Private Sub Form_Current()
Dim Sayac As Long
Dim Toplam As Double
For Sayac = 1 To Liste33.ListCount - 1
    Toplam = Toplam + CDbl(Nz(Me.Liste10.Column(6, Sayac ), 0))
Next Sayac 
Me.Metin2 = Toplam 
End Sub

Private Sub Açılan_Kutu22_BeforeUpdate(Cancel As Integer)
If DCount("*", "Tbl_Giris", "[MALZEME KODU]='" & Me.Açılan_Kutu22.Column(0) & "' And Nz([GIRIS MIKTAR],0)>0") = 0 Then MsgBox "Girisi olmayan Malzeme secemezsiniz.", vbCritical, "HATALI GIRIS"
End Sub

(18-12-2021, 13:41)beyza60 demiş ki: bir sorum daha olacak bu toplama işini sorguda yaptırıp oradan alabilirmiyim.yada herhangi bir sorguda toplatıp metin kutusunun denetim kaynağına kod yazılarak olabilirmi olursa nasıl olur

1. Private Sub Açılan_Kutu22_BeforeUpdate(Cancel As Integer)
   
   
2. If DCount("*", "Tbl_Giris", "[MALZEME KODU]='" & Me.Açılan_Kutu22.Column(0) & "' And Nz([GIRIS MIKTAR],0)>0") = 0 Then MsgBox "Girisi olmayan Malzeme secemezsiniz.", vbCritical, "HATALI GIRIS"
   
   
3. End Sub