tarihi otomatik şekilde vermek istiyorum

[TEKNİKAHMET]

Yaptığım formda yeni giriş yaparken tarihi otomatik olarak veriyorum ama ekleme veya düzenleme yaptığımda ekleme tarih de oto olarak kayıt etmesini istiyorum.. arkadaşlar bu konu hakkında bilginiz varsa yardımlarınızı bekliyorum.

 

[ayhan2122]

Sn TEKNİKAHMET;

Ekleme dügmesinin olay yordamını aşağıdaki gibi değiştirirsen tıkladığında =date() girmiş olursun;

Private Sub Komut12_Click()
On Error GoTo Err_Komut12_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.RunSQL "UPDATE Tablo1 SET Tablo1.[ekleme Tar] = Date() WHERE (((Tablo1.[Kayıt No])=[Formlar]![menü]![Kayıt No]));", -1
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Eklemek"

stLinkCriteria = "[Kayıt No]=" & Me![Kayıt No]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Komut12_Click:
Exit Sub

Err_Komut12_Click:
MsgBox Err.Description
Resume Exit_Komut12_Click

End Sub

 

[ayhan2122]

Sn TEKNİKAHMET;

Öncelikle bir ricam, göndereceğiniz dosyayı RAR.layıp gönderin.
Ekleme dügmesinin olay yordamını aşağıdaki gibi değiştirirsen tıkladığında =date() girmiş olursun;

Private Sub Komut12_Click()
On Error GoTo Err_Komut12_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.RunSQL "UPDATE Tablo1 SET Tablo1.[ekleme Tar] = Date() WHERE (((Tablo1.[Kayıt No])=[Formlar]![menü]![Kayıt No]));", -1
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Eklemek"

stLinkCriteria = "[Kayıt No]=" & Me![Kayıt No]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Komut12_Click:
Exit Sub

Err_Komut12_Click:
MsgBox Err.Description
Resume Exit_Komut12_Click

End Sub

( Pardon , mesajı düzelteceğime ikinci defa yollamışım )

 

[TEKNİKAHMET]

Arkadaşım ilgin için çok teşekkür ederim ellerine sağlık süper.