22/08/2020, 22:02
Vba da sadece texbox saat değeri girilmesini istiyorum ve bunu sınırlamak istiyorum. Yanlış bir giriş olduğunda uyarı almasını istiyorum nasıl sağlaya bilirim.
Sayfalar: 1 2
22/08/2020, 22:02
22/08/2020, 22:10
Dk içinde ayrı yapmak istiyorum sadece dk girilsin.
23/08/2020, 00:48
saat kutusunun adı: TxtSaat
dakika kutusunun adı:TxtDk
çıkıldıgında olayı yapılmamıştır
dakika kutusunun adı:TxtDk
Private Sub TxtDk_Change()
If Len(TxtDk.Text) = 0 Then Exit Sub
If Left(Me.TxtDk.Text, 1) > 5 Then
TxtDk.SelStart = 0
TxtDk.SelLength = 1
End If
If Me.TxtDk.Text > 59 Then
TxtDk.SelStart = 0
TxtDk.SelLength = 1
End If
End Sub
Private Sub TxtDk_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If Not IsNumeric(Chr(KeyAscii)) Or _
(Len(Me.ActiveControl.Text) >= 2 And _
ActiveControl.SelLength = 0) Then KeyAscii = 0
End Sub
Private Sub TxtSaat_Change()
If Len(TxtSaat.Text) = 0 Then Exit Sub
If Left(Me.TxtSaat.Text, 1) > 2 Then
TxtSaat.SelStart = 0
TxtSaat.SelLength = 1
End If
If Me.TxtSaat.Text > 23 And Me.TxtSaat.Text < 30 Then
TxtSaat.SelStart = 1
TxtSaat.SelLength = 1
ElseIf Me.TxtSaat.Text > 29 Then
TxtSaat.SelStart = 0
TxtSaat.SelLength = 2
End If
End Sub
Private Sub TxtSaat_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If Not IsNumeric(Chr(KeyAscii)) Or _
(Len(Me.ActiveControl.Text) >= 2 And _
ActiveControl.SelLength = 0) Then KeyAscii = 0
End Subçıkıldıgında olayı yapılmamıştır
23/08/2020, 00:49
Örnek dosya ekler misiniz?
Normalde like ve format ile yapılabilir dosyayı görmek gerek.
Normalde like ve format ile yapılabilir dosyayı görmek gerek.
23/08/2020, 11:12
(23/08/2020, 00:48)berduş yazdı: [ -> ]saat kutusunun adı: TxtSaat
dakika kutusunun adı:TxtDk
Private Sub TxtDk_Change()
If Len(TxtDk.Text) = 0 Then Exit Sub
If Left(Me.TxtDk.Text, 1) > 5 Then
TxtDk.SelStart = 0
TxtDk.SelLength = 1
End If
If Me.TxtDk.Text > 59 Then
TxtDk.SelStart = 0
TxtDk.SelLength = 1
End If
End Sub
Private Sub TxtDk_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If Not IsNumeric(Chr(KeyAscii)) Or _
(Len(Me.ActiveControl.Text) >= 2 And _
ActiveControl.SelLength = 0) Then KeyAscii = 0
End Sub
Private Sub TxtSaat_Change()
If Len(TxtSaat.Text) = 0 Then Exit Sub
If Left(Me.TxtSaat.Text, 1) > 2 Then
TxtSaat.SelStart = 0
TxtSaat.SelLength = 1
End If
If Me.TxtSaat.Text > 23 And Me.TxtSaat.Text < 30 Then
TxtSaat.SelStart = 1
TxtSaat.SelLength = 1
ElseIf Me.TxtSaat.Text > 29 Then
TxtSaat.SelStart = 0
TxtSaat.SelLength = 2
End If
End Sub
Private Sub TxtSaat_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
On Error Resume Next
If Not IsNumeric(Chr(KeyAscii)) Or _
(Len(Me.ActiveControl.Text) >= 2 And _
ActiveControl.SelLength = 0) Then KeyAscii = 0
End Sub
çıkıldıgında olayı yapılmamıştır
Ne Yazıkki Hata Alıyorum Saat Bilgisi Girilecek Yer Tek bir Tex Boz değil.
23/08/2020, 11:26
Ornek çalışmanız yok söylediğiniz tek şey de metin kutusuna sadece saat girileceği ve aynı şeyin dakika alanı için de geçerli olduğu bu bilgiler ışığında denemelerimde her hangi bir soruna raslamadım. Sizde nasıl bir sorun cıktı?
Uyari ekleme kısmi metin kutularından çıkıldığında olayına eklenebilir. Çıkıldığında olayına saat için eğer 23ten büyükse uyarı verip metin kutusuna dönme kodu eklenebilir.
Uyari ekleme kısmi metin kutularından çıkıldığında olayına eklenebilir. Çıkıldığında olayına saat için eğer 23ten büyükse uyarı verip metin kutusuna dönme kodu eklenebilir.
Sayfalar: 1 2