Merhaba arkadaslar. Formda veri girişi yaptıktan sonra textbox ın klitlenmisini istiyorum. bunu nasıl yapabilirim.
2. olarakta eğer veri girişinden 1 gün geçtiyse o textbox ın kilitlenmesini istiyorum. yardımcı olursanız sevinirim. orada kladım
Ufak bir örnek eklerseniz, daha kolay yardımcı olabiliriz.
üstat, ekteki pres tabloda veri girildiğinde textboxların kilitlenmesini istiyorum(böylece girilen bilgilerde değişiklik yapılamıyacak.). ama yeni veri girişine açık olacak.
ikinci olarak. bundan ayrı olarak, mesela veri girişinden 10 saat geçtiğinde girilmiş veriler değiştirilemesin(bundada textboxlar kilitlenebilir.)
Bilgi girildiği anda girilen bilgilerde değişiklik yapılamasın diyorsunuz,
yani bilgi girildikten sonra ister 1 dk., ister 1 saat sonra değiştirilemesin.
Daha sonra da 10 saat geçtikten sonra veriler değiştirilemesin diyorsunuz.
Söylediklerinizde bir çelişki var gibi.
Ayrıca öncelikle aşağıdaki konuyu okumalısınız.
Yapılmaması Gereken Ölümcül Hatalar
On current olayında yeni kayıt olup olmadığını kontrol ederek (newrecord)
TextBox'ların locked yani kilitleme özelliğini kod kısmında değiştirerek yaptım.
Kod:
Private Sub Form_Current()
If Me.NewRecord Then
Me.[KALIP TİPİ].Locked = False
Me.[KALIP REFERANSI].Locked = False
Me.[PARÇA REFERANSI].Locked = False
Me.[PARÇA ADI].Locked = False
Me.[KALIP DURUMU].Locked = False
Me.[NE OLDU].Locked = False
Me.[NE SORUN OLUŞTURUYOR].Locked = False
Me.[NE ZAMAN OLDU].Locked = False
Me.[NEREDE TESPİT EDİLDİ].Locked = False
Me.[NASIL TESPİT EDİLDİ].Locked = False
Me.[KİM TESPİT ETTİ].Locked = False
Else
Me.[KALIP TİPİ].Locked = True
Me.[KALIP REFERANSI].Locked = True
Me.[PARÇA REFERANSI].Locked = True
Me.[PARÇA ADI].Locked = True
Me.[KALIP DURUMU].Locked = True
Me.[NE OLDU].Locked = True
Me.[NE SORUN OLUŞTURUYOR].Locked = True
Me.[NE ZAMAN OLDU].Locked = True
Me.[NEREDE TESPİT EDİLDİ].Locked = True
Me.[NASIL TESPİT EDİLDİ].Locked = True
Me.[KİM TESPİT ETTİ].Locked = True
End If
End Sub
teşekkürler hocam. bu işime yaradı.
ben tarih olayını ayrı bir doru olarak sormuştum. adam giriş yaptıktan mesala 1 saat sonra verileri değiştiremesin. bu onu hakkındada yardımcı olabilr misin?
Mesela 10 saat için şu şekilde bir kontrol kullanabilirsin.
Kod:
If DATEDIFF("h",me.[AÇILIŞ TARİHİ], NOW()) > 10 Then
'Kilitle
Else
'Kilitleme
End If