Skip to main content

AccessTr.neT


Bilgisayar Tarihi Değişince Formda O Günkü Kayıtlar Görünmüyor

Bilgisayar Tarihi Değişince Formda O Günkü Kayıtlar Görünmüyor

Çözüldü #1
değerli hocalarım forma kayıtları giriyorum ertesi gün bilgisyarın tarihi değişince bir gün önceki kayıtlar formda görünmüyor ama tabloda kayıtlar var çözemedim yardımlarınızı bekliyorum tablo11 de kayıt sorunu
shıft tusuşuyla prg acınız teşekkürler
.rar AYLIK SU FATURALANDIRMA-30.04.2025 .rar (Dosya Boyutu: 326,99 KB | İndirme Sayısı: 2)
Cevapla
#2
altformun kayıt kaynağındaki sorgunun kriteri sadece o günü gösterecek şekilde ayarlanmış o nedenle sadece günlük verileri gösteriyor
ilgili kriteri kaldırırsanız sorun düzelir
Cevapla
#3
(01/05/2025, 13:24)berduş yazdı: altformun kayıt kaynağındaki sorgunun kriteri sadece o günü gösterecek şekilde ayarlanmış o nedenle sadece günlük verileri gösteriyor
ilgili kriteri kaldırırsanız sorun düzelir

hocam kaldırmadıgım olay yordamı kalmadı gene tarih değişince bir önceki tarihteki veriler forma gelmiyor ama tabloda kayıtlar vae anlamadım bir incelermisiniz mesala bu kırıter vardı onu kaldırdım olmadı
[Tablo1 Sorgu1].[kimlik1], [Tablo1 Sorgu1].[ABONENO]

'Private Sub ABONENO_Change()
'If IsNull(DLast("[sonendeks]", "Tablo1", "ayıd=" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ayıd] - 1 & " and ABONENO='" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ABONENO] & "'")) Or DLast("[sonendeks]", "Tablo1", "ayıd=" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ayıd] - 1 & " and ABONENO='" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ABONENO] & "'") = "" Then
  ' Me.ilkendeks = 0
'Else
    'Me.ilkendeks = DLast("[sonendeks]", "Tablo1", "ayıd=" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ayıd] - 1 & " and ABONENO='" & Forms![Tablo11]![Tablo1 Sorgu alt formu].Form![ABONENO] & "'")
'End If
'End Sub

acaba bu kod da bir hata varmı bunumu kasdediyorsunuz

Public Function ToplamKayit(Tablo11)

Dim rs As DAO.Recordset
Dim db As DAO.Database
Dim strSQL As String

Set db = CurrentDb

strSQL = "SELECT COUNT(*) FROM " & Tablo11

Set rs = db.OpenRecordset(strSQL)

ToplamKayit = rs.Fields(0)

'Bağlantıyı kesiyoruz, değişkenleri Sıfırlıyoruz
rs.Close
Set rs = Nothing
Set db = Nothing

End Function
Son Düzenleme: 01/05/2025, 19:55, Düzenleyen: simendifer.
Cevapla
#4
Tablo1 Sorgu alt formu'nun kaynağı
SELECT Tablo1.kimlik1, Tablo1.ayıd, Tablo1.ay, Tablo1.ABONENO, Tablo1.ABONE, Tablo1.KÖYÜ, Tablo1.işlemtarihi, Tablo1.ilkendeks, Tablo1.sonendeks, Tablo1.sarfiyat, Tablo1.birimfiyat, Tablo1.subedeli, Tablo1.kdv, Tablo1.kaçakbedeli, Tablo1.arızalısaykulbedeli, Tablo1.toplamtutar, Tablo1.sonodemetarihi, Tablo1.okumatarihi, Tablo1.gunfarkı, Tablo1.eskiborc, Tablo1.sabitücret
FROM Tablo1
WHERE (((Tablo1.işlemtarihi)=Date()));
where koşulunda date kullanmışsınız. Bu koşul nedeni ile sadece günlük kaytları görüyorsunuz. @berduş hocamızın da belirttiği bu, yordamla ile ilgili değil sorun.
Cevapla
#5
selamünaleyküm  hocam
önerini dikkate aldım dediğiniz gibi sorguda işlem tarihe =date() yazısını kaldırdım olay düzeldi blg tarihini değiştirdiğimde tüm kayıtlar geliyor
ilgi ve alakana çok  teşekkür ederim sağolun
ayrıca berduş hocamada ilgi ve alakasından ötürü çok teşekkür ederim sağolun var olun iyiki varsınız bir date beni bir gün oyaldaı sizde yordu
Son Düzenleme: 01/05/2025, 22:55, Düzenleyen: simendifer.
Cevapla
#6
Bahşettiğiniz sorun formla alakalı değil
@atoykan hocamın bahsettiği kodda WHERE (((Tablo1.işlemtarihi)=Date())); satırı soruna sebep oluyor
Siz sorgu koduna koşul eklemişsiniz o kısım düzeltilmeli
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task