Brush up on the basics or master the advanced techniques required to earn essential industry certifications, with Courses. Enroll in a course and start learning today. Training topics range from Android App Dev to the Xen Virtualization Platform.
Private Sub cmdSave_Click() Dim Counter As Integer Dim AnalystCount As Integer 'Set the counter to blank Counter = 0 'Start with the first employee Me.EmpID = 1 'Count the number of analysts, so the loop knows when to stop AnalystCount = DCount("EmpID", "tblEmployees", "[Type]='Analyst'") 'Check to see if "All Analysts" is selected If Me.chkAllAnalysts.Value = -1 Then 'Loop through all this until we reach the last analyst Do Until Counter = AnalystCount 'Check to see if they're an analyst If Me.Type.Value = "Analyst" Then 'Add one to the counter Counter = Counter + 1 'Save the record Me.Dirty = False End If 'If we haven't reached the last analyst... If Counter <> AnalystCount Then '...move to the next employee Me.EmpID = EmpID + 1 End If Loop End If 'Let the user know that everything saved MsgBox "Saved!", vbOKOnly End Sub
|Create report using crosstab query||11||29|
|SetFocus doesn't wait for input||14||31|
|how to conditionally format (bold) the most current week's records in a subreport||8||39|