+- 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ığı: form açılış tarihi (/konu-form-acilis-tarihi.html)
Sayfalar:
1
2
form açılış tarihi - tamyoltornistan - 03/05/2011
ekteki örnekte 3 tane form var. her form açıldığında açılış tarihinin AÇILIŞ TARİHİ tablosuna yazılmasını istiyorum. yardımcı olursanız sevinirim.
iyi çalışmalar.
FORM_TARİHİ.zip
(Dosya Boyutu: 23,85 KB | İndirme Sayısı: 10)
Cvp: form açılış tarihi - seyma nur - 03/05/2011
örneğinizde bir hata var tablo adı ile ilgili olması lazım bu yüzden çalışmıyor
Cvp: form açılış tarihi - Hayri16 - 03/05/2011
Sayın tamyoltornistan;
İsteğinizle ilgili bir şeyler yapmaya çalıştım. Tablonuzun adını değiştirdim ve kaydı sadece tarih olarak değil saat ve dakika olarakta kaydını sağladım. İnceleyip dönerseniz sevinirim. Saygılar.
Cvp: form açılış tarihi - tamyoltornistan - 03/05/2011
ilginiz için teşekkür ederim. istediğim gibi olmuş.
ancak kayıt ekleme uyarısı veriyor. onu iptal etme gibi bir şansımız varmı?
Cvp: form açılış tarihi - Hayri16 - 03/05/2011
Var tabi. Form load'ın hemen altına
DoCmd.SetWarnings False yazın sorununuz çözülecektir.
Saygılar.
Cvp: form açılış tarihi - ozanakkaya - 03/05/2011
(03/05/2011, 18:44)seyma nur yazdı: örneğinizde bir hata var tablo adı ile ilgili olması lazım bu yüzden çalışmıyor
bu hatayı vermesinin sebebi, "Araçlar / Başlangıç"a ilk açılacak formun "Tablo1" olarak belirtilmesi.
![[Resim: eq5t12.jpg]](http://i53.tinypic.com/eq5t12.jpg)
"AÇILIŞ TARIHI" isminde tablo adı kullanılmamalı. Tablo adını "tbl_acilistarihi" olarak değiştir.
Yapılmaması gereken ölümcül hatalar
FORM1 isimli form için, formun açıldığında olayına
Private Sub Form_Open(Cancel As Integer)
Dim rs As New ADODB.Recordset
rs.Open "tbl_acilistarihi", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("TARIH") = Date
rs("FORM_ADI") = "FORM1"
rs.Update
rs.Close
Set rs = Nothing
End Subkodunu yaz.
"Microsoft activex Data Objects 2.x Library" referansını eklemeyi unutma.
Hayri hocanın cevabını görmedim
Eklediğim kod 2. yol olarak kullanılabilir.