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
Son Endeksi Bir Sonraki (yeni Kayıtta) İlk Endeks Te Göstermesi
Hata iletisi nedir?
İyi olan tek şey bilgi ve kötü olan tek şey de cehalettir. (Sokrates)
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
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
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] & "#")
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
ç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
Konuyu Okuyanlar: 1 Ziyaretçi