AccessTr.neT

Private Sub cmdEkle_Click() Dim rst As New ADODB.Recordset Dim kaynak As String Dim ekleUruKod, ekleRafNo, ekleGirTar, ekleIrsNo, ekleFatTar, ekleFatNo, ekleMik, ekleBir, ekleKdv Dim ekleNot, ekleUruAdi, ekleStoAdi, ekleStoNo '-1 kesilen fatura '0 kesilmeyen fatura ekleUruKod = Me.txtUruKod ekleRafNo = Me.txtRafNo ekleGirTar = Me.ekleGirTar ekleIrsNo = Me.ekleIrsNo ekleFatTar = Me.ekleFatTar ekleFatNo = Me.ekleFatNo ekleMik = Me.ekleMik ekleBir = Me.ekleBir ekleKdv = Me.ekleKdv ekleNot = Me.ekleNot ekleUruAdi = Me.txtUruAdi ekleStoAdi = Me.txtStoAdi ekleStoNo = Me.txtStoNo If Nz(ekleMik) = 0 Then GoTo hata rst.Open "tblStokGirisleri", CurrentProject.Connection, adOpenKeyset, adLockOptimistic rst.AddNew rst!txtUruKod = ekleUruKod rst!txtRafNo = ekleRafNo rst!txtGirTar = ekleGirTar rst!txtIrsNo = ekleIrsNo rst!txtFatTar = ekleFatTar rst!txtFatNo = ekleFatNo rst!txtMik = ekleMik rst!txtBir = ekleBir rst!txtKdv = ekleKdv rst!txtNot = ekleNot rst!txtUru
05.01.

sn accesacemi, yardımcı olmak istiyorum ancak malesef bende hiçbirşey anlayamadım.
formunuza resimdeki gibi fatura ve tarihe göre verileri listelemek için alan mı eklemek istiyorsunuz.

evet ve aynı fatura no ile gelen urun toplamı gözüksün istiyorum nasıl olacak

Stok Girişleri formundaki liste istediğiniz şekilde değil mi?

Sn. accesacemi

Ekte gönderdiğim Toplam Sorgularını incelemenizde yarar var. İçinde çeşitli başlıklarda sorgu çeşitleri ve alt toplamlarını alma sorguları var. Sanıyorum işinize yarayacak.

konu ile ilgili geri bildirimde bulunun.