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

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
If DATEDIFF("h",me.[AÇILIŞ TARİHİ], NOW()) > 10 Then
'Kilitle
Else
'Kilitleme
End If