Skip to main content

AccessTr.neT


Son Endeksi Bir Sonraki (yeni Kayıtta) İlk Endeks Te Göstermesi

Son Endeksi Bir Sonraki (yeni Kayıtta) İlk Endeks Te Göstermesi

#1
hayırlı ramazanlar
su aboneliği programı yapmaktayım her ay endeks ölçülüp fatura çıktısı almak istiyorum ilk ölçüm yapılıp fatura aldıktan sonra bir sonraki ay ölçüm yapılıp değeri girilirken önceki ay son endeksin ilk endeks olarak ilk endeks metin kusuna getirmek (yazdırmak) istiyorum onun için şöyle bir kod yazdım ama (Tbl_Sayac alt formu) hata iletisi alıyorum sizce nerde hata var düzenleyebilirmisiniz teşekkürler

If IsNull(DLast("[sonendeks]", "Tbl_Sayac", " abone_ıd =" & Forms![Frm_Sayac]![ Tbl_Sayac alt formu].Form![ abone_ıd] - 1 & " and okumatarihi ='" & Forms![ Frm_Sayac]![ Tbl_Sayac alt formu].Form![ okumatarihi] & "'")) Or DLast("[sonendeks]", " Tbl_Sayac ", " abone_ıd =" & Forms![ Frm_Sayac]![ Tbl_Sayac alt formu].Form![ abone_ıd] - 1 & " and okumatarihi ='" & Forms![ Frm_Sayac]![ Tbl_Sayac alt formu].Form![ okumatarihi] & "'") = "" Then
Me.ilkendeks = 0
Else
Me.ilkendeks = DLast("[sonendeks]", " Tbl_Sayac ", " abone_ıd =" & Forms![ Frm_Sayac]![ Tbl_Sayac alt formu].Form![ abone_ıd] - 1 & " and okumatarihi ='" & Forms![ Frm_Sayac]![ Tbl_Sayac alt formu].Form![ okumatarihi] & "'")
End If
.rar SuFatura - Kopya.rar (Dosya Boyutu: 79,34 KB | İndirme Sayısı: 5)
Cevapla
#2
Hata iletisi nedir?
 İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
Cevapla
#3
hocam öncelikle teşekkür ederim
hata yazdığım tarih değiştiğinde kodu bir yanlışlık var ama ne bulamadım tarih değiştiğinde veya cıkıldıgında Tbl_Sayac alt formu bulunamadı diyor resim ekledim
.rar resim.rar (Dosya Boyutu: 301,97 KB | İndirme Sayısı: 1)
Cevapla
#4
"Tbl_Sayac alt formu"  adındaki boşlukları kaldır veya  "Tbl_Sayac_alt_formu"      yap

Dim lastEndeks As Variant

lastEndeks = DMax("[sonendeks]", "Tbl_Sayac", "abone_ıd = " & (Forms![Frm_Sayac]![Tbl_Sayac_alt_formu].Form![abone_ıd] - 1) & " AND okumatarihi = #" & Forms![Frm_Sayac]![Tbl_Sayac_alt_formu].Form![okumatarihi] & "#")

If IsNull(lastEndeks) Or lastEndeks = "" Then
    Me.ilkendeks = 0
Else
    Me.ilkendeks = lastEndeks
End If

sonra bunu dene
Cevapla
#5
bu satırda hata veriyor hocam satır sarı renkli oluyor [Tbl_Sayac_alt_formu] Access tarafından bulunamıyor diyor

lastEndeks = DMax("[sonendeks]", "Tbl_Sayac", "abone_ıd = " & (Forms![Frm_Sayac]![Tbl_Sayac_alt_formu].Form![abone_ıd] - 1) & " AND okumatarihi = #" & Forms![Frm_Sayac]![Tbl_Sayac_alt_formu].Form![okumatarihi] & "#")
Cevapla
#6
SAYIN C*e*l*o*y*c*e Hocam ben daha atoz hocamın SONDEGER_ATOZ PRG de yazdıgı kodları bu programa uygulamaya çalıştım gayet güzel çalışıyor
çalışan prg yi yüklüyorum form açılında AY metin acılan kutusundan ŞUBAT-2015 seciyoruz ikinci ay metin kutusunda MART-2015 seciyoruz blok tan A/1 Daireyi sectiğimizde bir önceki ayın son endeksini ilk endekse yazıyor bir incelermisiniz
.rar SONDEGER-ATOZ.rar (Dosya Boyutu: 44,37 KB | İndirme Sayısı: 3)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task