+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Command Button'un False Olması (/konu-command-button-un-false-olmasi.html)
Command Button'un False Olması - firtina - 02/06/2018
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.
Cvp: Command Button'un False Olması - ozanakkaya - 02/06/2018
Butonun tıklandığında olayı
metinkutusu = "Ayhan"
metinkutusu.setfocus
Komutbutonu.visible = false
Metin kutusu tıklandığında olayı
Komutbutonu.visible = true
Cvp: Command Button'un False Olması - firtina - 02/06/2018
(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.
Cvp: Command Button'un False Olması - ozguryasin - 02/06/2018
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
Cvp: Command Button'un False Olması - firtina - 02/06/2018
(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ı.
Cvp: Command Button'un False Olması - direnist - 02/06/2018
Merhaba;
Ekli örneği inceler misiniz?
İyi çalışmalar.