Dynamic Text Box

[dhicks]

Hello,



I have a small database that contains a Master Form and a Subform. The Subform holds detailed information about the record being displayed from the Master Form. Currently, I have it set up so that, based on specific criteria in the Subform record, a message box displays with information. The user then clicks on OK and moves on. The problem is that the user generally has to scroll through multiple records when in the form, and it's become annoying to have to click on OK every time a message box appears, which can be frequent. I would like to change the form and add a Text Box that will display the same information as the Message Box, so that the user doesn't have to click on anything to get to the next record. The text box needs to be able to change the message being displayed based on whether certain fields in the subform are populated or not. I'm not sure which Event to use for this. Does anyone have an idea and maybe an example I could follow? Many thanks!!

[pbaldy]

The On Current event fires when the form loads and when the user changes records. I'd assume you can use the same code you have but set the value of the textbox instead of showing the message box.

[dhicks]

The On Current event fires when the form loads and when the user changes records. I'd assume you can use the same code you have but set the value of the textbox instead of showing the message box.

Ok, here is the code I am putting in. I'm getting an error message about giving the focus to the text box in order to display the text. This is not working, though. I don't think I am using the Focus property correctly. Can you tell what I am doing wrong here?

If DCount("*", "qryMsgBoxCriteria", "Item='" & Me!Item & "' And IsNull(Actual_Pickup_Date)") And Checked_Out_YN = True Then
TxtResInfo.OnGotFocus
TxtResInfo.Text = "There is an active Reservation on this item, check for potential Date conflicts. This Item is also currently Checked Out."

ElseIf Checked_Out_YN = True Then
TxtResInfo.OnGotFocus
TxtResInfo.Text = "This Item is currently Checked Out"

ElseIf DCount("*", "qryMsgBoxCriteria", "Item='" & Me!Item & "' And IsNull(Actual_Pickup_Date)") Then
TxtResInfo.OnGotFocus
TxtResInfo.Text = "There is an active Reservation on this item, check for potential Date conflicts."
End If

[pbaldy]

Don't use the .Text property, and delete the attempt at setting focus. Try

Me.TxtResInfo = "This Item is currently Checked Out"

[pbaldy]

Oh, and more info on the .Text property, which is normally not needed:

http://www.baldyweb.com/ValueText.htm

[dhicks]

That worked!! Thank you very much!!!

[pbaldy]

Happy to help!