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
(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.
Rica ederim. ))
İyi çalışmalar.
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.
Merhaba;
Ekli örnekteki gibi mi?
İnceler misiniz ?
İyi çalışmalar.
(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.