+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Tarihi Bir Sonraki Tarihten Çıkarma (/konu-tarihi-bir-sonraki-tarihten-cikarma.html)
Tarihi Bir Sonraki Tarihten Çıkarma - itfaiyeci_26 - 26/03/2021
Tüm form sakinlerine merhaba yapmaya çalıştığımı forma girmiş olduğum bir tarihi daha sonra gireceğim bir sonraki tarihten çıkartmak ve ilk tarih alanının yanına yazdırmak ekte verdiğim örnekte sefer tablosundaki alana gittiği seferde ne kadar süre kaldığını hesaplatmak istiyorum yıl sonunda nerede kaç gün geçirdiğinin dökümünü almak için. bunun için yardım ederseniz çok sevinirim.
RE: Tarihi Bir Sonraki Tarihten Çıkarma - C*e*l*o*y*c*e - 27/03/2021
merhaba,örneğinize eklemeler yaptım,inceleyin lütfen
RE: Tarihi Bir Sonraki Tarihten Çıkarma - itfaiyeci_26 - 27/03/2021
Sayın Celoyce hocam öncelikle ilginiz ve cevabınız için teşekkür ederim. Gönderdiğiniz örneği inceledim. Ben sizin yaptığınız örneği kendim yapıyorum ancak benim yapmak istediğim ben dönüş tarihi girmeyeyim. Kaldığı günü bir alta girilen tarihi kendisi otomatik alsın. Ben bunu yapmaya çalışıyorum bunun kodunu bulamadım bunu nasıl yapacağımı araştırıyorum. Tabi yapamazsam o zaman mecbur bu şekilde kullanacağım.
RE: Tarihi Bir Sonraki Tarihten Çıkarma - itfaiyeci_26 - 29/03/2021
Ben sorunumu hala çözemedim. Acaba dönüş tarihini bir sonraki kaydın gidiş tarihinden otomatik çektirebilirmiyiz, yada nasıl çektiririz.
RE: Tarihi Bir Sonraki Tarihten Çıkarma - C*e*l*o*y*c*e - 29/03/2021
Giristarihi = DLast("Donustarihi", "TABLOADI")
şeklinde en son dönüştarihini Giriş tarihine alabilirsin
RE: Tarihi Bir Sonraki Tarihten Çıkarma - berduş - 29/03/2021
seferler Sorgu alt formu alt formunun geçerli olduğunda olayını aşağıaki gibi düzenleyip dener misiniz?
Private Sub Form_Current()
If IsNull(Me.tarih) Then Exit Sub
Me.kaldığı_gün = DMin("tarih", "seferler", "id=" & Me.id & " and clng(tarih)>" & CLng(Me.tarih)) - Me.tarih
End Sub