No data is populated in the list box after updating MS Access 2010 to MS Access 365

[edm608]

No data is populated in the list box after updating MS Access 2010 to MS Access 365. 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

[Minty]

Isn't this the same question as this one ? https://www.accessforums.net/showthread.php?t=71897

[ranman256]

set the list box to a query.

[Perceptus]

Most likely data is the problem. I would look into the data that sits in the referenced fields in the join, regress that data first.

But without data and not practicing my Psychic powers, I have nada. The code has all sorts of issues that could help you in the long run, but basicly where is the data?

[Missinglinq]

Most likely data is the problem...where is the data?

I agree. Since this is a new installation of Access...Have all Folders involved been declared as 'Trusted?'

Linq ;0)>