Skip to main content

AccessTr.neT


Metin Kutuları

Metin Kutuları

#5
Alttaki kod ilede olur.


Kod:
Private Sub Komut62_Click()
   
    Dim ctrl As Control
    Dim a As String
   
    For Each ctrl In Me.Controls
        If ctrl.ControlType = acTextBox Then
            If ctrl = "" Or IsNull(ctrl) Then
                a = a & ctrl.Tag & vbNewLine
            End If
        End If
    Next
 
    MsgBox "AÞAÐIDAKÝ ALANLAR BOÞ BIRAKILMIÞ...." & vbNewLine & "-----------------" & vbNewLine & a

End Sub

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
Metin Kutuları - Yazar: zaferlacin - 27/02/2020, 19:08
Cvp: Metin Kutuları - Yazar: zaferlacin - 27/02/2020, 23:04
Cvp: Metin Kutuları - Yazar: feraz - 28/02/2020, 01:48
Cvp: Metin Kutuları - Yazar: feraz - 28/02/2020, 02:21
Cvp: Metin Kutuları - Yazar: feraz - 28/02/2020, 02:28
Cvp: Metin Kutuları - Yazar: alicimri - 28/02/2020, 09:41