textbox27 boşsa CommandButton8 pasif olsun

[Rıdvan01]

textbox27 boşsa CommandButton8 pasif olsun

ve kodu nereye yazıcam

 

[Orion1]

Aşağıdaki kod işinizi görür.

Private Sub TextBox27_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox27.Value = Empty Then
    CommandButton8.Enabled = False
    Else
    CommandButton8.Enabled = True
End If
End Sub

 

[Rıdvan01]

sn orion2
kod çalışmadı texbox boşken buton pasif olmuyor

sanırım kodu yanlış yere yapıştırıyorum


ve ayrıca önemli bir sorun daha var userform4 üzerindeki listbox taki verilere çift tıkladığımda verileri userform2 üzerine gönderiyor fakat userform2 açıldığında sayfa3 aktif oluyor ama bu sayfa üzerindeki verilerin tamamı listbox ta görünmüyor
dosyayı ekliyorum

 

[Rıdvan01]

pardon orion2 kod çalışıyor ama tam istedigim gibi degil

butona veya textbox sa tıklanınca çalışıyo
diğer sorun hala var

 

[Orion1]

Enteresan .TextBox27' nin Exit olayı çalışmıyor.

 

[Rıdvan01]

benim vba bilgim yok bu dosyayı excelforumu takip ederek hazırladım
kodlarda eksik veya fazla olabilir

peki neyapçaz şimdi

 

[Orion1]

benim vba bilgim yok bu dosyayı excelforumu takip ederek hazırladım
kodlarda eksik veya fazla olabilir

peki neyapçaz şimdi

Ne yapılır bilmiyorum.
Belki dağa önce başına böyle bir şey gelmiş arkadaş varsa açıklayabilir.

 

[Rıdvan01]

peki teşekkür ederim orion2

 

[Ferhat Pazarçevirdi]

Texbox27 nerde ? Ben bir türlü bulamadım ..

 

[Ferhat Pazarçevirdi]

Textbox'ın Exit olayı sanırım, Frame kullanımı nedeniyle çalışmıyor. Ama sadece bir tahmin ...

Oysa Textbox'ın Change olayın'da Kodlar daha rahat çalışır. Şöyle ki :

Userformun Activate olayına, aşağıdaki kodlar ilave edilebilir.

Private Sub UserForm_Activate()
CommandButton8.Enabled = False
End Sub

Daha sonra da, Textbox'a değer girildikçe -ki eğer boş değer döndürmezse- Buton kullanılabilir.

Private Sub TextBox27_Change()
If Trim(TextBox27) <> Empty Then
   CommandButton8.Enabled = True
Else
   CommandButton8.Enabled = False
End If
End Sub

NOT : Projenizde "LED kontrol...." gibi bir referans gördüm. Ben de olmadığı için hata vermekte. Siz de, bu referansı kullanmıyorsanız, kaldırın.

 

[Rıdvan01]

teşekkür ederim fpc güzel oldu

listbox larla ilgili sorunum hala devam ediyor

 

[Ferhat Pazarçevirdi]

listbox larla ilgili sorunum hala devam ediyor

Bu sorunuzu anlamadım. Örneklerle, biraz daha açmanız gerekiyor

 

[Rıdvan01]

userform4 listbox1 sayfa1 deki kayıtları gösteriyor userform4 ü açarak
listboxta bir kayda çift tıkladığımda bu kaydı alıyor
userform4 kapanıyor ve userform2 açılıyor veriler ilgili hücrelere yerleşiyor aynı anda sayfa3 aktif oluyor

sorun burada

userform2 listbox1
önceki userform (userform4) kayıtlı desen sayısından fazlasını göstermiyor
daha fazla kayıt olduğu halde göstermiyo
taaki sipariş ekle veya sipariş sil yapana kadar sonra tüm kayıtları gösteriyo

yani userform4 te nekadar kayıt varsa userform2 de okadar gösteriyo

userform4 sayfa1 seçili userform2 sayfa3 seçili

 

[Rıdvan01]

deneyin userform4 te 2 adet kayıt bırakın birine çift tıklatın

userform2 açılacak ve sayfa3 aktif olacak fakat bu sayfadaki kayıtlar
userform2 listbox1 de tamamı gözükmüyo


userform4 = desen kayıt formu
userform2 = sipariş giriş formu

 

[Ferhat Pazarçevirdi]

Ben halen anlayabilmiş değilim.

Userform'un Listbox'ında açılışta 4 adet kayıt görünüyor. Çift tıkladığınızda Userform2 nin Listbox'ında 5 kayıt gözüküyor.

Problem nedir?

Desen'den falan anlamıyorum, lütfen nesne isimleri ile tarif edin.

 

[Rıdvan01]

bende böyle olmuyor defalarca denedim olmuyor
userform4 listbox ta 2 kayıt kalana kadar silin tekrar deneyin lütfen

 

[Rıdvan01]

sn fpc sende düzün çalışıyorsa sorun yoksa dosyayı ekle sorun ya bende ya bilgisayarda yoksa bu kodlar kullanıcıya göre adam mı seçiyo?

 

[Recep İpek]

Kodlarınızın sonundaki Next i satırını silerek

For i = 1 To Sheets.Count
ComboBox26.AddItem Sheets(i).Name
Next i

şeklinde yazınız.

Birde Referaslardam MISSING yazanın işaratini kaldırınız.

Ayrıca dosyanızı tam olarak çözemedim.Birçok yerde kodlar hata veriyor.

 

[Rıdvan01]

ilgin için çok teşekkür ederim Ripek

ben bu işlere yeni kafa yormaya başladım bu çalışmayı formu takip ederek ve formdaki sizin gibi uzman arkadaşların yardımıyla bu hale getirdim yani benim için bu bile büyük başarı.
makro çalışmak için kitap siparişi verdim yakında beni daha sık aranızda göreceksiniz ama sorularla değil soru çözerek.

 

[Rıdvan01]

sizin sorun olarak belirttiğiniz

MİSSİNG
LED kotrol

niye bulamıyorum? aradım ama yok