How do I fix/suppress an Error Message When Changing Value In Bound Text Box
Posted on 2004-08-04
An Error Message Appears when I change the text inside a textbox. I have error handling arround this section of code, but the error message doesn't use my error handling, the message just appears. The code (below) works like I want it to if the column being referenced is a normal column. The error only occurs when the textbox is a Calculated Field. After the error message VB does do my formatting. I have tried using On Error Resume Next but the message still pops up. I don't care how the message is fixed; either fixing the problem or forcing it not to appear.
If txtStateDate.Text <> "" Then
txtStateDate.Text = Format(CDate(Format(txtStateDate.Text, "##/##/##")), "MMM DD, YYYY")
If txtStateTime.Text <> "" Then
txtStateTime.Text = DBTimeToReadableTime(txtStateTime.Text, False)
DBTimeToReadableTime: Private Function That Formats Values (adds colons, converts to 12 hour, ...)
Both TextBoxes Are Bound To: A Recordset with properties of: adLockReadOnly, adUseClient, m_rsRFA.CursorType
Calculated Field In SQL: 'fldApprovalDate & fldRejectDate as [fldBothDate]'
There will never be a situation where both fields are filled or both empty.