Contextual Guidance at the moment of need helps your employees adopt to new software or processes instantly. Boost knowledge retention and employee engagement step-by-step with one easy solution.
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.
|Access 2010 - Issue Viewing Records Added to a Linked SQL Table||16||95|
|Need Help ASAP - Access Module VBA Run Time Error 3141||5||32|
|Access 2003, find all instances of database ODBC||3||40|
|SCOM - Service Restart||1||20|
Join the community of 500,000 technology professionals and ask your questions.