Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
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
|Another multiple criteria puzzle||4||19|
|How count number of unique values at end of report||5||28|
|MS Access - loop through contents of table and iteratively find/replace words from second table||6||25|
|Why is my report opening in "MAX" view?||7||9|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
20 Experts available now in Live!