Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Private Sub Command106_Click()
- Dim qry_rs As DAO.Recordset
- Dim qry_db As Database
- Set qry_db = CurrentDb
- SQLString = "SELECT [Clients Info].* FROM [Clients Info] WHERE ((([Clients Info].Info_Client)='" & [Forms]![Form-1]![Combo13_PageOne_Name] & "'));"
- Set qry_rs = qry_db.OpenRecordset(SQLString)
- Forms![Form-1].[Info_Member].Value = qry_rs![Info_Member]
- Forms![Form-1].[Info_Tower].Value = qry_rs![Info_ID]
- End Sub
- Forms![Form-1].[Info_Picture].Value = qry_rs![Info_UserIDPhoto]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement