TextBoxlara şartlı veri girişi

[yavuz829]

Merhaba arkadaşlar TextBox1 dolu olduğu zaman TextBox2 ye veri girişi izni vermesin. Ayni şekilde TextBox2 dolu olduğu zaman TextBox1 e veri girişi izni vermesin.

 

[ÖmerBey]

Merhaba,
Basit haliyle aşağıdaki şekilde deneyebilirsiniz.

Private Sub TextBox1_Change()
If TextBox2 <> "" Then TextBox1 = ""
End Sub

Private Sub TextBox2_Change()
If TextBox1 <> "" Then TextBox2 = ""
End Sub

 

[ulutanas]

Teşekkürler mucit77. Benimde işime yaradı yardımınız.

 

[yavuz829]

Hocam TextBox2 ye veri girdiğimiz zaman TextBox1 deki veriyi siliyor. Silme olarak değil de uyarı veya engelleme şeklinde olursa daha iyi olur. Teşekkürler.

 

[ÖmerBey]

Hocam TextBox2 ye veri girdiğimiz zaman TextBox1 deki veriyi siliyor. Silme olarak değil de uyarı veya engelleme şeklinde olursa daha iyi olur. Teşekkürler.

Birşeyler yanlış olmuştur.
Textbox2'ye veri girdiğiniz zaman Textbox1'i kontrol eder, boş değilse Textbox2'yi siler 1'i değil.
Mesaj için aşağıdaki şekilde deneyiniz.
Açıklamaları okuyunuz, ona göre kodu düzenleyiniz.

Private Sub TextBox1_Change() 'Textbox1 değiştiği zaman çalışır
If TextBox2 <> "" Then 'Eğer Textbox2 boş değilse
    TextBox1 = "" 'Textbox1'i boşalt, yani veri girilemesin
    MsgBox "Mesajınız" 'Mesaj kutusu göster
End If ' Eğer sorgusunu bitir
End Sub

Private Sub TextBox2_Change()
If TextBox1 <> "" Then
    TextBox2 = ""
    MsgBox "Mesajınız"
End If
End Sub

 

[yavuz829]

Çok teşekkürler hocalarım ellerinize sağlık.