AccessTr.neT

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

Hata iletisi nedir?

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

"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

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] & "#")

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