Greeting. No data is populated in the list box after updating to Access 2016. Any idea why?
Sub Form_Current()
Dim rs As ADODB.Recordset
Dim strSQL As String
If Err <> 0 Then
GoTo Form_Current_Exit
Else
On Error GoTo Form_Current_Err
strSQL = "SELECT dbo.SmallGroup.SmallGroupID, dbo.SmallGroup.TrainingDate, dbo.ModuleType.ModuleType, dbo.SmallGroup.Room, dbo.Applicant.LastName + ', ' + dbo.Applicant.FirstName AS [Clinical Facilitator], Applicant_1.LastName + ', ' + Applicant_1.FirstName AS [Psychosocial Facilitator]" & _
" FROM dbo.Applicant AS Applicant_1 RIGHT OUTER JOIN dbo.SmallGroup_Training INNER JOIN dbo.ApplicantTraining ON dbo.SmallGroup_Training.ApplicantTrainingID = dbo.ApplicantTraining.ApplicantTrainingID RIGHT OUTER JOIN dbo.SmallGroup ON dbo.SmallGroup_Training.SmallGroupID = dbo.SmallGroup.SmallGroupID LEFT OUTER JOIN dbo.Applicant ON dbo.SmallGroup.ClinicalFacilitatorID = dbo.Applicant.ApplicantID ON Applicant_1.ApplicantID = dbo.SmallGroup.PsychosocialFacilitatorID LEFT OUTER JOIN dbo.ModuleType ON dbo.SmallGroup.ModuleTypeID = dbo.ModuleType.ModuleTypeID" & _
" WHERE ApplicantTraining.ApplicantTrainingID ='" + ApplicantTrainingID + "' AND ApplicantTraining.ApplicantID ='" + ApplicantID + "'"
Set rs = New ADODB.Recordset
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
Set Me.Parent![lstSmallGroup].Recordset = rs
Date.SelStart = 0
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
'MsgBox Error$
Resume Form_Current_Exit
End Sub