Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
Private Sub btn_AddtoTeam_Click() Dim rst As DAO.Recordset Dim strsql As String Dim TNAME As String TNAME = Forms!frm_Staff.Form!FName & " " & Forms!frm_Staff.Form!Lname strsql = "Select Top 1 * from Team" Set rst = CurrentDb.OpenRecordset(strsql) With rst .AddNew ![TeamName] = TNAME .Update .Close End With 'rst Set rst = Nothing End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!