Untuk mudahnya langsung ambil saja recordsource pada form tsbt dan pasang ke report yg dimaksud, namun jika ingin menggunakan coding bapak boleh menggunakan even on open report tsbut, dan coba codingnya sprti ini,
Dim recMain As ADODB.Recordset Dim strSQL As String StrSQL = "SELECT .................... " (isikan dengan recordsource form tsbt) Set recMain = CurrentProject.Connection.Execute(strSQL) If recMain.EOF then Exit sub Else Report.recordsource = strSQL End if Semoga bisa membantu
