Skip to main content

AccessTr.neT


Command Button'un False Olması

Command Button'un False Olması

#7
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
Cevapla
#8
(02/06/2018, 22:38)direnist yazdı: Merhaba;
Ekli örneği inceler misiniz?
İyi çalışmalar.

Hocam,

Çok teşekkür ederim.Ellerinize sağlık. Sayenizde bir aşama daha kaydetmiş bulunmaktayım. Sorun çözülmüştür. 

Çok sağolun. Kolay gelsin.
firtina, 28-05-2009 tarihinden beri AccessTr.neT üyesidir. Hoba
Son Düzenleme: 02/06/2018, 22:51, Düzenleyen: firtina.
Cevapla
#9
Rica ederim. ))
İyi çalışmalar.
Cevapla
#10
Merhaba,

  Hocam sizlerden bu projem ile ilgili son bir isteğim olabilir mi?

Şu an istediğim herşey çok güzel çalışıyor. 
Ayhan isimli buton'a basınca Tex4'e yazıyor. Buton false oluyor. 
Text4'e basınca buton geri geliyor. 
Fakat Text4 içindeki Ayhan yazısı kalıyor
Klavyeden sildiğim zaman Text4'ün içine başka buton a basınca mesela Özden butonu yazıyor. Aksi halde Text6'ya geçiyor.
Me.Text4=""
kodunu denedim görümümde Text4 boş görünüyor fakat herhangi bir buton'u tıkladığımda Text4'ten değil bir sonraki Text'lerden yazmaya başlıyor.


  Acaba Text4'e tıklayınca Ayhan butonu geri geldiğinde Text4'ün içi temizlenip Özden, Ahmet, Mehmet  veya Ayhan butonuna basılınca kendisi  yine bu butonların içlerindeki yazıları yazabilir mi?

Yani kısaca text4, sanki baştan yazılacak konuma gelebilir mi?

Kolay gelsin, iyi çalışmalar.
.rar direnist_buton (1).rar (Dosya Boyutu: 27,53 KB | İndirme Sayısı: 1)
firtina, 28-05-2009 tarihinden beri AccessTr.neT üyesidir. Hoba
Son Düzenleme: 04/06/2018, 19:34, Düzenleyen: firtina.
Cevapla
#11
Merhaba;
Ekli örnekteki gibi mi?
İnceler misiniz ?
İyi çalışmalar.
.rar direnist_buton_2.rar (Dosya Boyutu: 27 KB | İndirme Sayısı: 1)
Cevapla
#12
(04/06/2018, 21:32)direnist yazdı: Merhaba;
Ekli örnekteki gibi mi?
İnceler misiniz ?
İyi çalışmalar.

Hocam merhaba,

    Size karşı çok mahcubum. Bu verdiğiniz cevap ile projem ile ilgili tüm eksiklerim tamamlanmıştır. Size ve tüm Accesstr ailesine çok teşekkür ederim. 

Sorun çözülmüştür. Çok teşekkür ederim size. 
 İyi akşamlar.
firtina, 28-05-2009 tarihinden beri AccessTr.neT üyesidir. Hoba
Son Düzenleme: 04/06/2018, 22:11, Düzenleyen: firtina.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da