AccessTr.neT

Herkese iyi akşamlar, 

     Yapmış olduğun çalışmayı geliştirmek için farklı bir soru olduğuna inandığım (benim için) şöyle bir sorunum var. Yardımlarınızı rica ediyorum.

  Örnek'teki herhangi bir text box'a Command button'a (mesela Ayhan) tıklandığında "Ayhan" yazıyor ve bir sonraki text box'a sorunsuz geçmektedir. 

  Acaba bu command button (Ayhan) tıklandıktan ve içindeki "Ayhan"'ı yazdıktan sonra False olabilir mi? Yazılan text box'ı tıkladığımda Command button tekrar True olabilir mi? Text box'ın içini silerek sanki oraya yazılmamış gibi. 

Şimdiden yardımlarınız için çok teşekkür ederim.

İyi çalışmalar.

Butonun tıklandığında olayı

metinkutusu = "Ayhan" 
metinkutusu.setfocus
Komutbutonu.visible = false

Metin kutusu tıklandığında olayı

Komutbutonu.visible = true

(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.

Bir önceki sorunuzda metin kutularına aktarmayı yapmıştık, tıklanan butona me.butonadi.visible = false yazın.  Bu şekilde buton kapanacak.

Metin kutuşarının tıklandığı olayına, metin kutusu isnini okuyun ve o butonu aktif edin.

Bu yöntemi deneyin, yapamazsanoz pc başına geçince birlikte bakalım

(02/06/2018, 21:53)ozguryasin yazdı: [ -> ]Bir önceki sorunuzda metin kutularına aktarmayı yapmıştık, tıklanan butona me.butonadi.visible = false yazın.  Bu şekilde buton kapanacak.

Metin kutuşarının tıklandığı olayına, metin kutusu isnini okuyun ve o butonu aktif edin.

Bu yöntemi deneyin, yapamazsanoz pc başına geçince birlikte bakalım

Hocam 
1 den 13 e kadar hata vermedi 13 ten sonra hata verdi.
ve ilk tıklamada false olmadı.

Merhaba;
Ekli örneği inceler misiniz?
İyi çalışmalar.