How do i clear value in a single field?

[xwnoob]

Ok, so here is my code for the validation of my form :

Private Sub AvailablePeriodEnd_BeforeUpdate(Cancel As Integer)
If [AvailablePeriodStart] > [AvailablePeriodEnd] Then
MsgBox ("You have entered a date wrongly")
Me!AvailablePeriodEnd = ""
End If
End Sub

However the code in red gives me an error everytime. How do i replace this code with a code that resets the value in the AvailablePeriodEnd field? I just want the field to be blank/reset value if the user enters a date that is less than the start date.

 

[John Big Booty]

I'm imagining the error you are getting is;

Use the following code;

Private Sub AvailablePeriodEnd_BeforeUpdate(Cancel As Integer)
If [AvailablePeriodStart] > [AvailablePeriodEnd] Then
     MsgBox ("You have entered a date wrongly")
     Cancel = True
     Me.AvailablePeriodEnd.Undo
End If
End Sub

 

[xwnoob]

Thanks your code solved the error part. However, it did not work the way as i thought i would. The code only cleared the last number of the year if it was earlier that the start date but i want to clear everything in the field. Also, subsequent times that i entered an earlier date on purpose resulted only in access displaying a error without removing the last number of the year. It just gave a message and then everything remained.

Is there anyway the code can be improved?

 

[John Big Booty]

Can you post a copy of your DB? ('07 or earlier) and I'll take a look.

 

[xwnoob]

Sure. Its the AddCommitmentDetails form.
Also, do you happen to know a method to expand columns in a listbox. I have a field,borrowertitle, that can get really long sometimes and the listbox doesnt have an option to expand. Help on that would be appreciated

 

[John Big Booty]

You missed the;

Cancel = True

portion of the code in your DB.


As for the List box column thing let me do some research.

 

[xwnoob]

Oh yea i missed out the cancel. Thanks it worked