如果在文本框中沒有輸入任何數據，則會出現錯誤消息

-1

請建議一個vb代碼，如果文本框留空，並且在TAB/Enter期間，每個文本框都會顯示錯誤消息框。如果在文本框中沒有輸入任何數據，則會出現錯誤消息

Private Sub CommandButton1_Click() 
    Sheets("Attendance").Select 
    Range("a1").Select 
    Do 
     If IsEmpty(ActiveCell) = False Then 
     ActiveCell.Offset(1, 0).Select 
     End If 
    Loop Until IsEmpty(ActiveCell) = True 

    ActiveCell.Value = Me.d.Value 
    ActiveCell.Offset(0, 1).Select 
    ActiveCell.Value = Me.N.Value 
    ActiveCell.Offset(0, 1).Select 
    ActiveCell.Value = Me.Salary.Value 
    ActiveCell.Offset(0, 1).Select 
    ActiveCell.Value = Me.Remarks.Value 
    ActiveCell.Offset(0, 1).Select 
    ActiveCell.Value = Me.IT.Value 
    ActiveCell.Offset(0, 1).Select 
    ActiveCell.Value = Me.Outtime.Value 
    ActiveCell.Offset(0, 1).Select 
    ActiveCell.Value = Me.Lunch.Value 
    ActiveCell.Offset(0, 3).Select 
    ActiveCell.Value = Me.Advance.Value 
    ActiveCell.Offset(0, 2).Select 
    ActiveCell.Value = Me.Paid.Value 
End Sub

來源

2016-01-21 Rajwinder Singh

你已經試過了什麼？ – xaviert

你必須爲每個文本框'退出'事件使用'if --- end if'。 – harun24hr

你需要看看文本框和他們的離開事件，然後檢查他們的值<>「」或長度> 0 –

請仔細閱讀以下內容，並嘗試對您的用戶表格進行操作。

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
     If Me.TextBox1 = "" Then 
      MsgBox "You must enter value!" 
      Cancel = True 
      Me.TextBox1.SetFocus 
     End If 
    End Sub

來源

2016-01-21 08:53:33 harun24hr

謝謝你所有的支持 –

如果你發現它適合你，你應該接受我的答案。 – harun24hr

如果在文本框中沒有輸入任何數據，則會出現錯誤消息

回答

相關問題