<div>
test this<br />

<pre><code id="code-20-41996215-1">Public Function Contracts_CRM_audit()
 Dim DB As Dao.Database
 Dim strSQL As String
Dim rstContracts As DAO.Recordset

Set DB = CurrentDb
  strSQL = &quot;SELECT Max([Report Date]), [Contract Reference No], Issue from tbl_contracts_crm_Audit_history GROUP BY Issue&quot;
Set rstContracts = DB.OpenRecordset(strSQL, dbOpenDynaset)

Do Until rstContracts.EOF
    strIssue = strIssue &amp; &quot;;&quot; &amp; rstContracts!Issue &amp; &quot;; &quot;
     rstContracts.MoveNext
 Loop
     MsgBox strIssue

 End Function </code></pre>
</div>


test this


Public Function Contracts_CRM_audit()
 Dim DB As Dao.Database
 Dim strSQL As String
Dim rstContracts As DAO.Recordset

Set DB = CurrentDb
  strSQL = "SELECT Max([Report Date]), [Contract Reference No], Issue from tbl_contracts_crm_Audit_history GROUP BY Issue"
Set rstContracts = DB.OpenRecordset(strSQL, dbOpenDynaset)

Do Until rstContracts.EOF
    strIssue = strIssue & ";" & rstContracts!Issue & "; "
     rstContracts.MoveNext
 Loop
     MsgBox strIssue

 End Function 

<div>
<div class="content wysiwyg-content">
Not sure what I'm doing wrong. &nbsp;But I'm receiving an error &quot;Object Variable or With Block Variable not set&quot;:<br />
<br />
Public Function Contracts_CRM_audit()<br />
Dim DB As Dao.Database<br />
Dim strSQL As String<br />
Dim rstContracts As Recordset<br />
<br />
<br />
Set DB = CurrentDb<br />
<br />
Do Until rstContracts.EOF<br />
&nbsp; &nbsp; strSQL = &quot;SELECT Max([Report Date]), [Contract Reference No], Issue from tbl_contracts_crm_Audit_hi<wbr />story GROUP BY Issue&quot;<br />
&nbsp; &nbsp; Set rstContracts = DB.OpenRecordset(strSQL, dbOpenDynaset)<br />
&nbsp; &nbsp; strIssue = rstContracts!Issue &amp;&nbsp;&quot;; &quot;<br />
&nbsp; &nbsp; rstContracts.MoveNext<br />
Loop<br />
&nbsp; &nbsp; MsgBox strIssue<br />
<br />
End Function
</div>
</div>


Not sure what I'm doing wrong.  But I'm receiving an error "Object Variable or With Block Variable not set":

Public Function Contracts_CRM_audit()
Dim DB As Dao.Database
Dim strSQL As String
Dim rstContracts As Recordset


Set DB = CurrentDb

Do Until rstContracts.EOF
    strSQL = "SELECT Max([Report Date]), [Contract Reference No], Issue from tbl_contracts_crm_Audit_history GROUP BY Issue"
    Set rstContracts = DB.OpenRecordset(strSQL, dbOpenDynaset)
    strIssue = rstContracts!Issue & "; "
    rstContracts.MoveNext
Loop
    MsgBox strIssue

End Function

Object Variable or With Block Variable not set - Microsoft Access vba

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.