Skip to main content

AccessTr.neT


Yeni döneme bir önceki dönemden kayıt alma

Yeni döneme bir önceki dönemden kayıt alma

#4
sayın yengi yapmak istediğiniz sanırım apartmanlardaki dogal gaz faturasını paylaştırma programı ben de yönetici oldugumdan böyle bir programa ihtiyac duydum ve yaptım tabi sayın atoz dan sizin sorunuzun aynısını birde sordum ve sagolasun cevabıyla sorunumu çözdü 
 formun olay yordamına yazdıgı bir kodla programı ekliyorum inceleyiniz 
-------------------------------
Private Sub Blok_Change()

If IsNull(DLast("[sonendeks]", "Tablo1", "ayıd=" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ayıd] - 1 & " and Blok='" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![Blok] & "'")) Or DLast("[sonendeks]", "Tablo1", "ayıd=" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ayıd] - 1 & " and Blok='" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![Blok] & "'") = "" Then
    Me.ilkendeks = 0
Else
    Me.ilkendeks = DLast("[sonendeks]", "Tablo1", "ayıd=" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ayıd] - 1 & " and Blok='" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![Blok] & "'")
End If
End Sub
------------------------
programın çalışması şöyle 
üst menüde fatura bilgileri giriliyor dönem bilgileri tarihi tutarı apt oturan sayısı 
ayrı bir formdan ilk önce mesken oturanların bilgileri daire metre karesi 
fatura bilgileri girdikten sonra alt forma sırasıyla 1 nolu daireden başlayarak açılır kutudan bilgileri getiriyoruz ilk endeks i son sayfadaki bilgiden alıyor sizinde sorunuzun cevabı burada üstteki kodla getiriyoruz 
programı inceledikten sonra daha iyi anlarsınız 

ayrıca bu linki inceleyiniz
https://accesstr.net/konu-son-endeksin-b...nmesi.html
.rar DOGALGAZ_HESABI.rar (Dosya Boyutu: 79,36 KB | İndirme Sayısı: 15)
Son Düzenleme: 18/03/2016, 01:44, Düzenleyen: simendifer.
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
Cvp: Yeni döneme bir önceki dönemden kayıt alma - Yazar: simendifer - 17/03/2016, 22:01
Task