Zorunlu boş olmaz ve sayıgirin kodu

[ikikan]

Zorunlu boş olmaz ve sayıgirin kodu çözüldü

aşagıdaki kodlar birleştirile bilirmi acaba


For X = 1 To 39
If Controls("TextBox" & X).Value = Empty Then
MsgBox (" LÜTFEN BİR SAYI GİRİNİZ." _
& Chr(10) & "Lütfen boş bıraktığınız bölümleri doldurunuz."), vbExclamation, "DİKKAT !"
Controls("TextBox" & X).SetFocus
Exit Sub
End If
Next X

If TextBox1 = "" Then Exit Sub
If Not IsNumeric(TextBox1) Then
MsgBox "Rakam Girmek Zorunludur.", , " HATALI GİRİŞ"
TextBox1 = ""
Cancel = 1
Exit Sub
End If

 

[Ömer]

Merhaba,

Döngüden sonraki satırın yerine,

If Controls("TextBox" & X).Value = Empty Or Not IsNumeric(TextBox1) Then

yazıp ikinci kodları silerek deneyiniz.

.

 

[ikikan]

Merhaba,

Döngüden sonraki satırın yerine,

If Controls("TextBox" & X).Value = Empty Or Not IsNumeric(TextBox1) Then

yazıp ikinci kodları silerek deneyiniz.

.

Ömer bey "TextBox1" de TextBox & X olmalı 39 tane textbox için uygulamam lazım

 

[Ömer]

If Controls("TextBox" & X).Value = Empty Or Not IsNumeric(Controls("TextBox" & X)) Then

Bu şekilde deneyin.

.

 

[ikikan]

If Controls("TextBox" & X).Value = Empty Or Not IsNumeric(Controls("TextBox" & X)) Then

Bu şekilde deneyin.

.

bir sorun var sürekli aynı mesaj cıkıyor doluda olsa sayıda olsa ekte örnek bir dosya gönderiyorum

 

[Ömer]

TextBox clik lerinde ve çıkışlarında kod çalıştığı için düzeltmelerden sonra tekrar TextBox a girerseniz hata almazsınız. Kodun çalışmasını siz bu şekilde yazmışsınız.

Mesajdan sonra tekrar girdiğinizde veri düzgün ise hata vermiyor.

 

[ikikan]

TextBox clik lerinde ve çıkışlarında kod çalıştığı için düzeltmelerden sonra tekrar TextBox a girerseniz hata almazsınız. Kodun çalışmasını siz bu şekilde yazmışsınız.

Mesajdan sonra tekrar girdiğinizde veri düzgün ise hata vermiyor.

ilginiz için teşekürler

class modülle çözdüm

class modüle

Public WithEvents txt As MSForms.TextBox
Private Sub txt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 44 Or KeyAscii > 57 Then KeyAscii = 0: MsgBox "Boş Bırakmayın ve Sadece Rakam Giriniz ....."
End Sub
Private Sub txt_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then KeyCode = 0
RP1.CommandButton1_Click
End Sub
Private Sub txt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
RP1.CommandButton1_Click
End Sub

userforma

'textbox lara veri girmesini zorunlu yapar
For X = 1 To 38
If Controls("TextBox" & X).Value = Empty Then
'MsgBox "Boş Olamaz.", , " HATALI GİRİŞ"
Controls("TextBox" & X).SetFocus
Exit Sub
End If
Next X

yazınca işlem çözüldü