(02/06/2018, 21:35)ozanakkaya yazdı: Butonun tıklandığında olayı
metinkutusu = "Ayhan"
metinkutusu.setfocus
Komutbutonu.visible = false
Metin kutusu tıklandığında olayı
Komutbutonu.visible = true
Hocam örnekteki buton tıklanma olayında;
Private Sub Command0_Click()
If IsNull(Me.Text4) Then
Me.Text4 = Me.Command0.Caption
ElseIf IsNull(Me.Text6) Then
Me.Text6 = Me.Command0.Caption
ElseIf IsNull(Me.Text8) Then
Me.Text8 = Me.Command0.Caption
ElseIf IsNull(Me.Text10) Then
Me.Text10 = Me.Command0.Caption
ElseIf IsNull(Me.Text12) Then
Me.Text12 = Me.Command0.Caption
ElseIf IsNull(Me.Text14) Then
Me.Text14 = Me.Command0.Caption
ElseIf IsNull(Me.Text16) Then
Me.Text16 = Me.Command0.Caption
ElseIf IsNull(Me.Text18) Then
Me.Text18 = Me.Command0.Caption
ElseIf IsNull(Me.Text20) Then
Me.Text20 = Me.Command0.Caption
ElseIf IsNull(Me.Text22) Then
Me.Text22 = Me.Command0.Caption
ElseIf IsNull(Me.Text24) Then
Me.Text24 = Me.Command0.Caption
ElseIf IsNull(Me.Text26) Then
Me.Text26 = Me.Command0.Caption
ElseIf IsNull(Me.Text28) Then
Me.Text28 = Me.Command0.Caption
End If
End Sub
kodları yazılı olduğundan hata mesajı vermektedir. Birde diğer 3 button da text boxlar için var.