Skip to main content

AccessTr.neT


Butona Tıklayınca Metin Kutusu Bilgi Gönderme?

Butona Tıklayınca Metin Kutusu Bilgi Gönderme?

Çözüldü #4
dostum bişey soracağım şimdi kendi projemi baz alarak inceledim ve bir kaç sıkıntı yaşadım.Misal 10 tane butonum var.Bu butonlar örnek bilgi olsun diye söylüyorum altan1, altan2, altan3.... altan10 a kadar buton1 e bastığımda altan1 yazısı eklendi bundan sonra illa buton 2 değil istediğim bir butona istediğim sırada basabilirim. yani hangi butona ne zaman bastığım önemli dğeil sadece neye basarsam satıra bastığım sırada ekleyecek. yani satırda altan3 altan1 altan10 görülebilecek.biraz uğraştım 1. butondan bağımsız çalışıyoruz ama şimdide ekleme alanı boş ise şunu yap değilse böyle yap diyerek tüm butonlara çalışıyorum.Yardımcı olursan sevinirim.
Private Sub kumanda_Click()
If Me.aksesuaralan.Value = "" Then
Me.aksesuaralan.SetFocus
Me.aksesuaralan.Value = "altan1"
Me.metindenal.SetFocus
Me.metindenal.Value = "altan1"

Else

Me.aksesuaralan.SetFocus
Me.aksesuaralan.Value = Me.metindenal.Value & " " & "altan1"
Me.metindenal.SetFocus
Me.metindenal.Value = Me.aksesuaralan.Value


End If
End Sub


Böyle yaptım ama ilk if hatalı olmuş direk else ye geçiyor BOŞLUK BIRAKIP altan1 yazıyor.birde metindenal ın görünür özelliğini hayır yapınca Me.metindenal.SetFocus hata veriyor.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Butona Tıklayınca Metin Kutusu Bilgi Gönderme? - Yazar: ALTANs - 13/02/2014, 00:24
Task