Örnek eklemeniz daha sağlıklı olur ancak;

Private Sub Metin0_AfterUpdate()

If Me.Metin0 > 0 Then

    Me.Metin0.Locked = True

    Else

    Me.Metin0.Locked = False

End If

End Sub

size bir fikir verebilir. Bu durum metin kutuları için ayrı ayrı uygulanır. Ancak bir çok metin kutusuna aynı anda bu işlemi gerçekleştirmek isterseniz size tavsiyem im kullanmanızdır. Deneyip sonucu bildiriniz.