Soru textboxlarda kontrol hatası

[sirkülasyon]

Hayırlı Akşamlar
Textboxlara aynı veri girilmesini önlemeye yarayan KONTROL kodu

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

SATİNALMA.ActiveControl.Value = "" Kısmı sürekli hata veriyor. Bakabilmeniz mümkün mü?

 

[Muzaffer Ali]

Merhaba.
Hata veren satırı silip yerine aşağıdaki satırı kopyalayın.

SATİNALMA.Controls(Nesne(Y)).Value =""

Eğer olmazsa dosyanızı ekleyin kontrol edelim.

 

[sirkülasyon]

Teşekkür ederim. Sağ olasın. Hatayı giderdi

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.