Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.
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
|Error when trying to enter new record on form bound to a view with timestamp column||40||69|
|Where to download Microsoft Form 2.0 Object Library.||2||32|
|Does anyone know of an easy way to Uninstall Office 2010 but not Access 2010?||4||21|
|VBA Code to Automatically Connect to an Oracle Server in my Pass Through Queries within MS Access||15||37|