+- 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ığı: Tarih Alanının Tümünü Günün Tarihi Yapma. (/konu-tarih-alaninin-tumunu-gunun-tarihi-yapma.html)
Sayfalar:
1
2
Tarih Alanının Tümünü Günün Tarihi Yapma. - hegu - 23/06/2021
Hayırlı akşamlar arkadaşlar. Ekteki örnekte alınan tarih alanı var. Bir tıklama ile uyarı gelmesi ve tüm alan günün tarihi mi olsun uyarısına evet ederse tüm verilerin alınma tarihi günün tarihi olması için ne yapabilirim. Teşekkür ederim.
RE: Tarih Alanının Tümünü Günün Tarihi Yapma. - userx - 23/06/2021
Sayın hegu
URUN Formu üzerinde bir butona alttaki kodu ekleyerek dener misiniz?
DoCmd.RunSQL "UPDATE Tablo2 SET Tablo2.Mal_Al_Tar = Date() WHERE (((Tablo2.Yid)=[Formlar]![URUN]![Yid]));"
Me.Requery
RE: Tarih Alanının Tümünü Günün Tarihi Yapma. - hegu - 23/06/2021
Sayın Userx kod çalışıyor fakat tüm veriyi değil açık olanı değiştiriyor.
RE: Tarih Alanının Tümünü Günün Tarihi Yapma. - userx - 23/06/2021
Tüm kayıtlar için
DoCmd.RunSQL "UPDATE Tablo2 SET Tablo2.Mal_Al_Tar = Date()"
Me.Requery
RE: Tarih Alanının Tümünü Günün Tarihi Yapma. - hegu - 23/06/2021
Sayın userx bu kod oldu fakat uyarı vermesi için ne yapılabilir. Tüm tarihi değiştirmek istiyor musunuz diye. evet i tıklarsak hepsini hayır ı tıklarsak sadece o an açık olanı değiştirsin.
RE: Tarih Alanının Tümünü Günün Tarihi Yapma. - userx - 23/06/2021
If MsgBox("Tarihi değitirmek istiyor musunuz?", vbYesNo + vbQuestion, "Tarih Değiştirme") = vbYes Then
DoCmd.RunSQL "UPDATE Tablo2 SET Tablo2.Mal_Al_Tar = Date()"
Me.Requery
Else
End If