+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Soruları ve Cevapları (https://accesstr.net/forum-access-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: Son Endeksi Bir Sonraki (yeni Kayıtta) İlk Endeks Te Göstermesi (/konu-son-endeksi-bir-sonraki-yeni-kayitta-ilk-endeks-te-gostermesi.html)
Sayfalar:
1
2
Son Endeksi Bir Sonraki (yeni Kayıtta) İlk Endeks Te Göstermesi - simendifer - 16/03/2025
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
RE: Son Endeksi Bir Sonraki (yeni Kayıtta) İlk Endeks Te Göstermesi - onur_can - 17/03/2025
Hata iletisi nedir?
RE: Son Endeksi Bir Sonraki (yeni Kayıtta) İlk Endeks Te Göstermesi - simendifer - 17/03/2025
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
RE: Son Endeksi Bir Sonraki (yeni Kayıtta) İlk Endeks Te Göstermesi - C*e*l*o*y*c*e - 17/03/2025
"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
RE: Son Endeksi Bir Sonraki (yeni Kayıtta) İlk Endeks Te Göstermesi - simendifer - 17/03/2025
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] & "#")
RE: Son Endeksi Bir Sonraki (yeni Kayıtta) İlk Endeks Te Göstermesi - simendifer - 17/03/2025
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