Skip to main content

AccessTr.neT


Son Kayıt Değerini Bir Öncekinden Çıktarak Forma Yazdırma (Vba İle)

Son Kayıt Değerini Bir Öncekinden Çıktarak Forma Yazdırma (Vba İle)

#18
Vba ile yapmak istiyorsanız form üzerine bir düğme koyun en iyisi ve şu kodları yapıştırın düğmeye. Bu arada tablonuzda "uretim" adında integer bir alan açtım. Bu alanı da form üzerindeki txturetim metin kutusu ile ilişkilendirdim. Kodlar şunlar:

Kod:
Dim x, ks, deger, sondeger As Integer
On Error GoTo err_hata
DoCmd.GoToRecord , , acFirst

DoCmd.SetWarnings False
Me.txtUretim = Me.txtSayac
ks = DCount("[sayac]", "tablo1")

For x = 1 To ks

1
deger = Me.txtSayac
DoCmd.GoToRecord , , acNext
sondeger = Me.txtSayac - deger

Me.txtUretim = sondeger
Next x

err_hata: MsgBox "işlem tamamlandı"
DoCmd.SetWarnings True

.rar SayacFarkıHesaplama.rar (Dosya Boyutu: 24,95 KB | İndirme Sayısı: 2)
İnadına, ille de Accesstr.net...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
RE: Son Kayıt Değerini Bir Öncekinden Çıktarak Forma Yazdırma (Vba İle) - Yazar: mehmetdemiral - 20/04/2020, 23:08
Task