Skip to main content

AccessTr.neT


Command Button'un False Olması

Command Button'un False Olması

Çözüldü #1
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.
.rar buton.rar (Dosya Boyutu: 22,19 KB | İndirme Sayısı: 5)
firtina, 28-05-2009 tarihinden beri AccessTr.neT üyesidir. Hoba
Son Düzenleme: 02/06/2018, 20:22, Düzenleyen: firtina.
Cevapla
#2
Butonun tıklandığında olayı

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

Metin kutusu tıklandığında olayı

Komutbutonu.visible = true
Cevapla
#3
(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.
firtina, 28-05-2009 tarihinden beri AccessTr.neT üyesidir. Hoba
Son Düzenleme: 02/06/2018, 21:53, Düzenleyen: firtina.
Cevapla
#4
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
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla
#5
(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ı.
firtina, 28-05-2009 tarihinden beri AccessTr.neT üyesidir. Hoba
Son Düzenleme: 02/06/2018, 22:22, Düzenleyen: firtina.
Cevapla
#6
Merhaba;
Ekli örneği inceler misiniz?
İyi çalışmalar.
.rar direnist_buton.rar (Dosya Boyutu: 27,53 KB | İndirme Sayısı: 4)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da