Work with 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.
Dim rst As DAO.Recordset Dim strSQL As String Dim intLoop As Integer Dim fld As DAO.Field Set rst = CurrentDb.OpenRecordset("Select * From tblIntakeForms Where IntakeFormID = " & Nz(IntakeFormID, 0)) If Nz(IntakeFormID, 0) > 0 Then rst.Edit Else rst.AddNew End If For Each fld In rst.Fields If fld.Name <> "IntakeFormID" Then rst(fld.Name) = Me(fld.Name).Value Next fld If Nz(Me.IntakeFormID, 0) = 0 Then rst!AddedBy = GetCurrentUserName() rst.Update Me.IntakeFormID = rst!IntakeFormID rst.Close Set rst = Nothing
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.