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.