Submitting values to a text box

[tanny81]

Hi All,

1st foray into Access, so go easy on me.

I have some code at the moment which essentially takes the value slected from a datepicker and enters it into a text box which would otherwise be locked (to prevent the users entering garbage data). I have included a copy of the code below, but essentially this is generating an error message when trying to re-lock the text box stating "You can't lock a control while it has unsaved changes".

I know I could get around this by moving the focus elsewhere prior to this line of code running, but I wanted to know if there was another way to achieve this as doing it that way seems like a bit of a fudge?

    If PickerValueDate > VerDate Then
        MsgBox "Date selected cannot be in the future", vbExclamation, "Input Error"
        dtpFrom.Enabled = False
        txtDateFrom = ""
        Exit Sub
    Else
    ' Transfer date from date picker to text box
        txtDateFrom.Locked = False
        strDate = Format(dtpFrom, "dd/mm/yyyy")
        txtDateFrom = strDate
        txtDateFrom.Locked = True
        dtpFrom.Enabled = False
    End If

 

[Montez659]

tanny,

Why not use the built in validation Rule and text properties to validate the entry? Simply set the validation rule of the textbox to

< D ate ()

and then imput a message that says "Value cannot be in the future." If they try to set it to tomorrow, they will not be ablr to tab off of the box until they set it correctly.

You can even do

< D ate ()+1

if today can be included.

EDIT: Why is my code not showing? Leave the spaces out, apparently this board filters that code out.

 

[Norie]

Wouldn't setting Enabled to False be enough?

 

[boblarson]

You don't need to enable or even unlock the text box to set it with code. So, just remove that part.