Skip to main content

AccessTr.neT


Formda metin kutusu eklensin, ama silinmesin, değiştirilmesin.

Formda metin kutusu eklensin, ama silinmesin, değiştirilmesin.

Çözüldü #1
Arkadaşlar merhaba,
Bir formda var olan metin kutularındaki verilerin form kapandıktan sonra tekrar o form açıldığında o verinin değiştirilmesini, silinmesini istemiyorum. Ancak aynı kayıt içinde başka bir metin kutusuna (boş ise) veri girilebilsin istiyorum. Bunu yetkilendirme ile sağlamaya çalıştım. Ama bir türlü yapamadım. Ekteki dosyada yetkilendirme yok. Başka türlü nasıl yapabilirim?
Şimdiden çok teşekkür ederim...
.rar METİN KUTUSU DEĞİŞMESİN.rar (Dosya Boyutu: 40,14 KB | İndirme Sayısı: 9)
abahceci, 12-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
Merhabalar;
Silinmesini istemediğiniz metin kutularının odaklandığında olayını aşağıdaki gibi yaparsanız sanırım istediğiniz olur.
Private Sub Metin20_GotFocus()
If IsNull(Me.Metin20) Then
Me.Metin20.Locked = False
Else
Me.Metin20.Locked = True
End If
End Sub
Cevapla
Çözüldü #3
Sayın serdar_20 hocam, cevabınız için çok teşekkür ederim. Yazdığınız kodu denedim ve istediğim gibi oldu. Ancak ne var ki; bu özelliği kullanmayı düşündüğüm birkaç formum ve her bir formda da birçok metin kutum var. Bu durumda her formdaki her bir metin kutusu için ayrı ayrı mı bu kodu yazmalıyım? Yoksa daha pratik bir yolu var mı?
İlginizden dolayı tekrar teşekkür ederim...
abahceci, 12-05-2010 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #4
Merhaba..

Sayın serdar_20'in önerisine ilaveten;

Bunu en kısayolu döngü ile tüm kontrolleri kontrol ettirmek olur..

Forumunuzun Geçerli Olduğunda kod bölümüne alttaki prosedürü uygularsanız (yeni kayıt değilse) veri girilmiş tüm metin kutuları ve açılan kutular kilitlenecektir..:

Dim trz As Control
For Each trz In Me.Controls
Select Case trz.ControlType
Case acTextBox, acComboBox
If IsNull(trz.Value) = 0 Then trz.Locked = -1 Else trz.Locked = 0
End Select
Next
Son Düzenleme: 19/01/2014, 16:42, Düzenleyen: Taruz.
Cevapla
Çözüldü #5
Taruz hocam, ellerinize sağlık. İstediğim gibi oldu.
Yalnız bir konuda daha yardımınızı isteyeceğim:
Herhangi bir denetim, başkası tarafından yanlış girilmişse ve ben onu düzeltmek istersem, tek bir butona tıklayarak bu özelliği devre dışı bırakabilir miyim?
Tabi form kapatılıp tekrar açıldıktan sonra yine eskisi gibi çalışmaya devam edecek şekilde...
Yardımınız için çok teşekkür ederim...

(Bu arada komutta If IsNull(trz.Value) = 0 önce hata verdi.
Sonra trz yerine herhangi bir denetim adı yazdıktan sonra düzeldi)
abahceci, 12-05-2010 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 19/01/2014, 18:24, Düzenleyen: abahceci.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task