sirkülasyon
Altın Üye
- Katılım
- 10 Temmuz 2012
- Mesajlar
- 2,518
- Excel Vers. ve Dili
- 2021 LTSC TR
- Altın Üyelik Bitiş Tarihi
- 18-06-2026
Hayırlı Akşamlar
Textboxlara aynı veri girilmesini önlemeye yarayan KONTROL kodu
SATİNALMA.ActiveControl.Value = "" Kısmı sürekli hata veriyor. Bakabilmeniz mümkün mü?
Textboxlara aynı veri girilmesini önlemeye yarayan KONTROL kodu
Kod:
Option Explicit
Private Sub TextBox1_Change()
If TextBox1 <> "" Then Call Kontrol
End Sub
Private Sub TextBox3_Change()
If TextBox3 <> "" Then Call Kontrol
End Sub
Private Sub TextBox5_Change()
If TextBox5 <> "" Then Call Kontrol
End Sub
Private Sub TextBox7_Change()
If TextBox7 <> "" Then Call Kontrol
End Sub
Private Sub TextBox9_Change()
If TextBox9 <> "" Then Call Kontrol
End Sub
Private Sub TextBox11_Change()
If TextBox11 <> "" Then Call Kontrol
End Sub
Sub Kontrol()
Dim Nesne(), X As Byte, Y As Byte
Nesne = Array("TextBox1", "TextBox3", "TextBox5", "TextBox7", "TextBox9", "TextBox11")
For X = LBound(Nesne) To UBound(Nesne)
If SATİNALMA.Controls(Nesne(X)).Value <> "" Then
For Y = X + 1 To UBound(Nesne)
If SATİNALMA.Controls(Nesne(Y)).Value = SATİNALMA.Controls(Nesne(X)).Value Then
MsgBox "Lütfen başka bir isim giriniz!", vbCritical, "Uyarı"
SATİNALMA.ActiveControl.Value = ""
Exit Sub
End If
Next
End If
Next
End Sub