Private Sub Command0_Click()



Dim GSayi As Integer



For GSayi = 4 To 28 Step 2

    If IsNull(Controls("Text" & GSayi)) Then



        Controls("Text" & GSayi) = Me.Command0.Caption

        Controls("Text" & GSayi).SetFocus

        Me.Command0.Visible = False

        Exit For

    End If

Next GSayi



End Sub

Üstteki kod sizin kod ile önceki mesajda belirttiğim kodun birleştirilip sadeleştirilmiş halidir. Lütfen sonraki sorularınızda yapılan yardım sonucu hata veriyor ise hatalı halini ekleyiniz.
Metin kutularının her biri için aşağıdaki kodun metin kutusu ismine göre düzenlenmiş hali eklenmelidir.
Text4 için

If Me.Text4 = Me.Command0.Caption Then

Me.Command0.Visible = True

ElseIf Me.Text4 = Me.Command1.Caption Then

Me.Command1.Visible = True

ElseIf Me.Text4 = Me.Command2.Caption Then

Me.Command2.Visible = True

ElseIf Me.Text4 = Me.Command3.Caption Then

Me.Command3.Visible = True

End If