Kod:
Private Sub Komut0_Click()
Dim txt As Control
For Each txt In Me.Controls
If txt.ControlType = 109 Then
If IsNull(txt.Value) Then
MsgBox txt.Name & " Boş."
txt.SetFocus
Exit For
End If
End If
Next
End Sub
Private Sub Komut0_Click()
Dim txt As Control
For Each txt In Me.Controls
If txt.ControlType = 109 Then
If IsNull(txt.Value) Then
MsgBox txt.Name & " Boş."
txt.SetFocus
Exit For
End If
End If
Next
End Sub
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
|