The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.
If Me.Dirty = False Then 'This section counts the number of servers to which the update has been deployed Dim rs As DAO.Recordset Dim sSQL As String sSQL = "SELECT Count(tblDeployment.Computer) AS CountOfComputer " sSQL = sSQL & "FROM tlkComputers INNER JOIN tblDeployment ON tlkComputers.Computer=tblDeployment.Computer " sSQL = sSQL & "WHERE (((tblDeployment.DeploymentType) = 'Live') And ((tlkComputers.Group) = 'Servers')) " sSQL = sSQL & "GROUP BY tblDeployment.UpdateID HAVING (((tblDeployment.UpdateID)= " & Forms!frmUpdatesWrapper!frmUpdates!txtUpdateID & "));" Debug.Print sSQL Set rs = CurrentDb.OpenRecordset(sSQL) If Not (rs.BOF And rs.EOF) Then Me.txtNumberDeployed = rs!CountOfComputer Else 'your query did not return any records. End If Set rs = Nothing End If
|pop out of webbrowser1 control vba6||5||25|
|Import New Records From Access Table To SQL Database Table||7||30|
|Access 2010 change CurrentUser||5||32|
|2 subforms 1 main form||1||11|