We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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.
|How force required field data entry before moving on to a new record||3||29|
|MS Access Error Handling||6||30|
|How do a DCount on a report||1||17|
|MS Access Query Date Field Not Returning Results for the Correct Date||6||15|