The following function works good to make the text boxes visible on my form. But, when I add the line *shown in bold text below) to 'Empty' the values in the text boxes, I get error code 438, object doesn't support this property.
Code:Public Function modMenu_unhideTextBoxes() ' unhides develement text boxes on frmAMainMenu Dim strBox As String Dim db As Database Dim rst As Recordset Set db = DBEngine(0)(0) Set rst = db.OpenRecordset("mtQueryMenu", dbOpenDynaset) ' a table created from a query, containing _ the items to make visible and empty the _ values in each With rst While Not .EOF strBox = ![fStrTextBoxName] Forms![frmAMainMenu].Controls(strBox).Visible = True Forms![frmAMainMenu].Controls(strBox) = Empty .MoveNext Wend End With rst.Close Set rst = Nothing Set db = Nothing End Function