Debbie Raia, this is the code I’m trying to get to work.
Private Sub form_load()
For Each iLearn In CurrentDb.TableDefs
If Len(iLearn.Connect) > 0 Then
iLearn.RefreshLink
End If
Next iLearn
'\\\\\\\\\PA_Registration and Scheduling
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Registration and Scheduling*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Front Desk*" And [Course Status].Value = "Completed") Then
[PA_Registration and Scheduling].Value = "Requirements Met"
End If
'\\\\\\\\\PA_Front Desk
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Front Desk*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Registration and Scheduling*" And [Course Status].Value = "Completed") Then
[PA_Front Desk].Value = "Requirements Met"
End If
'\\\\\\\\\PA_Charge Entry
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Charge Entry*" And [Course Status].Value = "Completed") Then
[PA_Charge Entry].Value = "Requirements Met"
End If
'\\\\\\\\\PA_Provider Schedules
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Registration and Scheduling*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Provider Schedules*" And [Course Status].Value = "Completed") Then
[PA_Provider Schedules].Value = "Requirements Met"
End If
'\\\\\\\\\PA_Registration and Scheduling_Charge Entry
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Registration and Scheduling*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Charge Entry*" And [Course Status].Value = "Completed") Then
[PA_Registration and Scheduling_Charge Entry].Value = "Requirements Met"
End If
'\\\\\\\\\PA_FrontDesk_Charge Entry
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Registration and Scheduling*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Front Desk*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Charge Entry*" And [Course Status].Value = "Completed") Then
[PA_FrontDesk_Charge Entry].Value = "Requirements Met"
End If
'\\\\\\\\\PA_FrontDesk_Provider Schedules
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Registration and Scheduling*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Front Desk*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Provider Schedules*" And [Course Status].Value = "Completed") Then
[PA_FrontDesk_Provider Schedules].Value = "Requirements Met"
End If
'\\\\\\\\\PA_Super User
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Registration and Scheduling*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Front Desk*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Charge Entry*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Provider Schedules*" And [Course Status].Value = "Completed") Then
[PA_Super User].Value = "Requirements Met"
End If
'\\\\\\\\\PA_Practice Revenue Manager
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Registration and Scheduling*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Front Desk*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Charge Entry*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Edits for Front Office*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Reporting Overview 1 of 4_Introduction*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Reporting Overview 2 of 4_Soarian Scheduling*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Reporting Overview 3 of 4_Soarian DSS*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Reporting Overview 4 of 4_GECB*" And [Course Status].Value = "Completed") Then
[PA_Practice Revenue Manager].Value = "Requirements Met"
End If
'\\\\\\\\\PA_Soarian Provider Template Maintenance
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Registration and Scheduling*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Provider Schedules*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Soarian Provider Template Maintenance Training*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Soarian Provider Template Maintenance Workshop*" And [Course Status].Value = "Completed") Then
[PA_Soarian Provider Template Maintenance].Value = "Requirements Met"
End If
'\\\\\\\\\PA_Edits for Front Office
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*PA_Edits for Front Office*" And [Course Status].Value = "Completed") Then
[PA_Edits for Front Office].Value = "Requirements Met"
End If
'\\\\\\\\\RM_Customer Service
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*RM_Foundational Overview*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*RM_FPP Day 2/AR Followup*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*RM_Customer Service*" And [Course Status].Value = "Completed") Then
[RM_Customer Service].Value = "Requirements Met"
End If
'\\\\\\\\\RM_ Credit Balance
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*RM_Foundational Overview*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*FPP Day 2/AR Followup*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*RM_CPP Day 2/Payment Posting*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*RM_Credit Balance*" And [Course Status].Value = "Completed") Then
[RM_ Credit Balance].Value = "Requirements Met"
End If
'\\\\\\\\\RM_CustomerService_Credit Balance
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*RM_Foundational Overview*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*FPP Day 2/AR Followup*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*RM_CPP Day 2/Payment Posting*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*RM_Customer Service*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*RM_Credit Balance*" And [Course Status].Value = "Completed") Then
[RM_CustomerService_Credit Balance].Value = "Requirements Met"
End If
'\\\\\\\\\RM_Payment Posting
If ([Course Name].Value Like "*Policies and Procedures Attestation*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 1 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 2 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 3 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 4 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 5 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 6 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*Healthcare Insurance Concepts 7 of 7*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*RM_Foundational Overview*" And [Course Status].Value = "Completed") _
And ([Course Name].Value Like "*FPP Day 2/AR Followup*" And [Course Status].Value = "Completed") _