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!
Private Sub cmdNewProject_Click() On Error GoTo EH Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("select * from Projects where 1=0") With rs .AddNew ![Created By] = Nz([TempVars]![CurrentUserID], 0) ![Status2] = 7 ![Currency] = DLookup("CurrencyID", "tblCurrencyExchange", "[Currency] = '" & Me.txtCur & "'") ![ProjectNo] = Me.txtActivityCode ![Project Name] = "LC Ref: (delete it after appending if want): " & Me.txtLCRef & ", Project Name: " & Me.txtActivityDescription ![Start Date] = Date ![Notes] = "****APPENDED LC FROM CSM*****: " & Format(Date, "m\/d\/yyyy") & ", Beneficiary :" & Me.txtBeneficiary & ", Guarantor: " & Me.txtGtorDescrip .Update End With rs.Close CurrentDb.Execute "qryUpdateProjID_tblLC", dbFailOnError CurrentDb.Execute "qryUpdateProjID_CSM2", dbFailOnError DoCmd.OpenForm "frmUpdateBU" Me.Refresh Exit Sub EH: 'Add error handling here MsgBox "Error " & Err.Number & ": " & Err.Description End Sub
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.