+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Boş Textboxların Kontrolü (/konu-bos-textboxlarin-kontrolu.html)
RE: Boş Textboxların Kontrolü - feraz - 14/05/2020
Buda hangisi boşsa onun adını mesaj verir ve o textboxa odaklanır.
Bu arada @berduş hocamıza katılıyorum artık öğrenme zamanınız geldi
Dim arr, i As Byte, say As Byte
Dim arr2()
arr = Array("TextBox1", "TextBox2")
For i = LBound(arr) To UBound(arr)
If Me.Controls(arr(i)) <> "" Then
say = say + 1
ReDim Preserve arr2(say)
arr2(say) = arr(i)
End If
Next
If say > 0 Then
For i = 1 To UBound(arr2)
Me.Controls(arr2(i)).SetFocus
MsgBox "Dolu Textboxlar asagida:" & vbNewLine & " " & Me.Controls(arr2(i)).Name
Exit Sub
Next
Else
MsgBox "Hepsi bos"
End If
Erase arr: Erase arr2RE: Boş Textboxların Kontrolü - m_demir - 14/05/2020
Hocam yazdığınız kodları kendi kodlarıma ekleyemiyorum hata veriyor.
Hocam Tasarım yapabiliyorum. Kodlardan hiç anlamıyorum yaş 61 bundan sonra kadar öğrenebilirim onuda bilmiyorum.
Farkındayım çok emek sarf ediyorsunuz yardım etmek için. Ama hiç bir kod temeli olmayan bir insanında sizin yazdığınız kodlardan hiç bir şey anlamadığını bilmenizi istiyorum. Eklediğiniz kodları eklemeye çalışıyorum hata veriyor. Doğrusu doğru yere ekleyip eklemediği mi de bilmiyorum. İkinizde çok yordum bunun farkındayım. Konuyu taşıyabilirsiniz. Saygılarımla sağlıklı günler diliyorum.
RE: Boş Textboxların Kontrolü - berduş - 14/05/2020
O zaman şunu sorayım amacınız ne? Neden bu forumdasınız? Neden bu çalışmayı yapıyorsunuz?
RE: Boş Textboxların Kontrolü - feraz - 14/05/2020
Buda dictionary ile gördüğünüz gibi her yoldan oluyor abey.
Dim arr, i As Byte
Dim scr As Object
arr = Array("TextBox1", "TextBox2")
Set scr = CreateObject("Scripting.Dictionary")
For i = LBound(arr) To UBound(arr)
If Me.Controls(arr(i)) <> "" Then
scr(CStr(Me.Controls(arr(i)).Name)) = scr(CStr(Me.Controls(arr(i)).Name))
End If
Next
If scr.Count > 0 Then
For i = 0 To scr.Count - 1
MsgBox scr.Keys()(i)
Me.Controls(scr.Keys()(i)).SetFocus
MsgBox "Dolu Textboxlar asagida:" & vbNewLine & " " & Me.Controls(scr.Keys()(i)).Name
Exit Sub
Next
Else
MsgBox "Hepsi bos"
End If
Erase arr: Set scr = NothingRE: Boş Textboxların Kontrolü - m_demir - 14/05/2020
Hocam poroğramı kendi işyerimde kullanıyorum. Bazı eksiklikleri var tamamlatmak istedim.
RE: Boş Textboxların Kontrolü - berduş - 14/05/2020
Bu arada kodları hemen anlamanızi beklemiyoruz ama en azından "bu kod ne ise yariyor" tarzı bir soru sorabilirsiniz yada daha iyisi kodlarla ilgili bir ön araştırma yapıp takıldığınız yeri sorabilirsiniz? Öğrenmenin en hızlı yolu arastirma yapip deneme/yanılma yöntemiyle ugrasmanizdir.