ละเว้นฟิลด์ข้อความว่างเปล่า

ฉันยังคงได้รับข้อยกเว้น cast เมื่อรันรูทีนย่อยใน userform มันรับรู้ค่า Null เมื่อมันอ่านtxtMileage.text = ""และส่งข้อผิดพลาดเพราะมันพยายามที่จะตรวจสอบว่าค่ามากกว่า 300

If btnYes.Checked = True And txtMileage.Text > 300 Then MsgBox("Distance Exceeds 300 Miles") txtMileage.Focus() Exit Sub

ฉันต้องการให้ละเว้นการตรวจสอบค่าเมื่อbtnNo.checked = trueและtxtMileage.text = ""

ความคิดใด ๆ

Private Sub cmdCalculate_Click(sender As Object, e As EventArgs) Handles cmdCalculate.Click
    If btnNo.Checked = False And btnYes.Checked = False Then
        MsgBox("Please select yes or no")
        Exit Sub
    End If
    If btnYes.Checked = True And txtMileage.Text = "" Then
        MsgBox("Please instert Mileage")
        txtMileage.Focus()
        Exit Sub
    End If
    If btnNo.Checked = True And txtMileage.Text = "" Then

    End If
    If btnYes.Checked = True And txtMileage.Text > 300 Then
        MsgBox("Distance Exceeds 300 Miles")
        txtMileage.Focus()
        Exit Sub
    End If
End Sub

อัปเดตพร้อมข้อความแสดงข้อผิดพลาด แต่ยังคงส่งถึง

If btnYes.Checked = True And txtMileage.Text = "" Then MsgBox("Please insert Mileage") txtMileage.Focus() Exit Sub ElseIf btnYes.Checked = True And txtMileage.Text > 300 Then MsgBox("Distance Exceeds 300 Miles") txtMileage.Focus() Exit Sub End If

ElseIf btnYes.Checked = True And txtMileage.Text > 300 Then น่าจะเป็นบรรทัดปัญหาในที่สุด Then

ลองตรวจสอบดูว่า.Textมีค่าตัวเลขไหมและถ้าไม่มีให้ตั้งค่าเป็น0?

If Not IsNumeric(txtMileage.Text) Then txtMileage.Text = 0

คุณอาจหรือไม่ต้องการเก็บไว้เป็นตัวแปรแทนเพื่อหลีกเลี่ยงการเปลี่ยนการควบคุม

Dim txt as Variant
txt = txtMileage.Text
If Not IsNumeric(txt) Then txt  = 0

ใส่เป็นตัวเลือก excluyent ผ่านของelseif txtMileage.Text = ""จะไม่มีโอกาสตรวจสอบif >300เวลาที่ว่างเปล่า

Private Sub cmdCalculate_Click(sender As Object, e As EventArgs) Handles cmdCalculate.Click
    If btnNo.Checked = False And btnYes.Checked = False Then
        MsgBox("Please select yes or no")
        Exit Sub
    End If
    If btnYes.Checked = True And txtMileage.Text = "" Then
        MsgBox("Please instert Mileage")
        txtMileage.Focus()
        Exit Sub
    Elseif  btnYes.Checked = True And txtMileage.Text > 300 Then
        MsgBox("Distance Exceeds 300 Miles")
        txtMileage.Focus()
        Exit Sub
    End If
    If btnNo.Checked = True And txtMileage.Text = "" Then

    End If
End Sub