Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Defult Value of Text Box
- Thread starter davetek
- Start date
Unfortunately its more complicated than that.
A text box want a particular item or field not a recordset which is what a query is.
Dim Conn2 As ADODB.Connection
Dim Rs1 As ADODB.Recordset
Dim SQLCode As String
Set Conn2 = CurrentProject.Connection ' <<<<Note same as CurrentDb
Set Rs1 = New ADODB.Recordset
' SQLCode is where your Query statement will go such as below
SQLCode = "SELECT * FROM [yourTable] WHERE Yourfield = something;"
Rs1.Open SQLCode, Conn2, adOpenStatic, adLockOptimistic
'Then you can set the Texbox to any field in the query
Me![YourTextbox] = Rs1!AnyfieldInQueryStatement
' close it this way
Set Rs1 = Nothing
Set Conn2 = Nothing
DougP, MCP
A text box want a particular item or field not a recordset which is what a query is.
Dim Conn2 As ADODB.Connection
Dim Rs1 As ADODB.Recordset
Dim SQLCode As String
Set Conn2 = CurrentProject.Connection ' <<<<Note same as CurrentDb
Set Rs1 = New ADODB.Recordset
' SQLCode is where your Query statement will go such as below
SQLCode = "SELECT * FROM [yourTable] WHERE Yourfield = something;"
Rs1.Open SQLCode, Conn2, adOpenStatic, adLockOptimistic
'Then you can set the Texbox to any field in the query
Me![YourTextbox] = Rs1!AnyfieldInQueryStatement
' close it this way
Set Rs1 = Nothing
Set Conn2 = Nothing
DougP, MCP
- Status
Similar threads
