locked
Stop Error Appearing RRS feed

 > 

  • Question

  • Question
    Sign in to vote
    0
    Sign in to vote

    I have a drop down list which is a number of pre-defined dates in it. If the user accidently types a letter in the box the whole code stops with a run-time error 13, Type Mismatch dialogue box. How can I get the code to stop erroring if the user types something by mistake. The code currently driving that box is;

    Private Sub src_txt_1p_cont_start_Change()
      TempDate = DateValue(src_txt_1p_cont_start.Value)
      TempYear = Year(TempDate)
      TempMonth = Month(TempDate)
      EndDate = DateValue("1/" & TempMonth & "/" & TempYear + 1) - 1
      src_txt_1p_cont_end.Value = Format(EndDate, "d mmmm yyyy")
    End Sub

    Thanks in advance

    Toni

    Toni Chaffin aka Talisa

    Monday, January 28, 2013 10:29 AM

Answers

  • Question
    Sign in to vote
    0
    Sign in to vote

    Try this:

    Private Sub src_txt_1p_cont_start_Change()
    If IsDate(src_txt_1p_cont_start.Value) Then
        TempDate = DateValue(src_txt_1p_cont_start.Value)
        TempYear = Year(TempDate)
        TempMonth = Month(TempDate)
        EndDate = DateValue("1/" & TempMonth & "/" & TempYear + 1) - 1
        src_txt_1p_cont_end.Value = Format(EndDate, "d mmmm yyyy")
    Else
        Beep ' Not a valid date
    End If
End Sub

    Regards, Hans Vogelaar

    • Marked as answer by TSRC Monday, January 28, 2013 11:49 AM
    Monday, January 28, 2013 11:00 AM
  • Question
    Sign in to vote
    0
    Sign in to vote

    In addition, I only want them to be able to select a value in the list.


    You can change the Style property of the combo box to 2 - fmStyleDropdownList

    Regards, Hans Vogelaar

    • Marked as answer by TSRC Monday, January 28, 2013 11:50 AM
    Monday, January 28, 2013 11:27 AM

All replies

  • Question
    Sign in to vote
    0
    Sign in to vote

    In addition, I only want them to be able to select a value in the list.

    Thanks

    Toni Chaffin aka Talisa

    Monday, January 28, 2013 11:00 AM
  • Question
    Sign in to vote
    0
    Sign in to vote

    Try this:

    Private Sub src_txt_1p_cont_start_Change()
    If IsDate(src_txt_1p_cont_start.Value) Then
        TempDate = DateValue(src_txt_1p_cont_start.Value)
        TempYear = Year(TempDate)
        TempMonth = Month(TempDate)
        EndDate = DateValue("1/" & TempMonth & "/" & TempYear + 1) - 1
        src_txt_1p_cont_end.Value = Format(EndDate, "d mmmm yyyy")
    Else
        Beep ' Not a valid date
    End If
End Sub

    Regards, Hans Vogelaar

    • Marked as answer by TSRC Monday, January 28, 2013 11:49 AM
    Monday, January 28, 2013 11:00 AM
  • Question
    Sign in to vote
    0
    Sign in to vote

    In addition, I only want them to be able to select a value in the list.


    You can change the Style property of the combo box to 2 - fmStyleDropdownList

    Regards, Hans Vogelaar

    • Marked as answer by TSRC Monday, January 28, 2013 11:50 AM
    Monday, January 28, 2013 11:27 AM
  • Question
    Sign in to vote
    0
    Sign in to vote

    Thanks Hans as usual

    Toni

    Toni Chaffin aka Talisa

    Monday, January 28, 2013 11:50 AM