Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Private Sub cmdAssign_Click() Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim lngTop As Long Dim strSQL As String Set db = CurrentDb db.QueryDefs.Delete "qryWorkAssigned" Set qdf = db.CreateQueryDef("qryWorkAssigned") lngTop = CLng(InputBox("Enter Amount to Assign")) strSQL = "SELECT TOP " & lngTop & " numDay, numDay, txtAssignedTo, txtAssignedBy, dtmDateAssigned, numID, txtPmtTyp, txtSuff FROM [qryUnPro] ORDER BY numID" qdf.SQL = strSQL DoCmd.RunSQL "UPDATE qryWorkAssigned SET qryWorkAssigned.txtAssignedBy = [Enter Your User ID], qryWorkAssigned.txtAssignedTo = [Enter User ID Being Assigned], qryWorkAssigned.dtmDateAssigned = [Enter Today's Date]" 'Refresh MAPD Form [Form_frmUnproUnassignedsubform].Requery 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.