Ho creato un db clienti_be che contiene solo le tabelle; un altro db clienti solo con le maschere e reports.
Per migliorare la velocità, ho collegato i due con:
Global db As Database
Global rsClienti As Recordset
Private Sub Form_Load()
Set db = OpenDatabase("\\server\db\Clienti_be.mdb")
Set rsClienti = db.OpenRecordset("SELECT * FROM tbl_Fornitori", dbOpenDynaset)
Set Me.Recordset = rsClienti
End Sub
La maschera funziona, ma non riesco a far funzionare i report!
Private Sub cmdPrintClienti_Click()
DoCmd.OpenReport "rpt_Clienti", acViewPreview
End Sub
Codice sul report:
Option Compare Database
Private Sub Report_Open(Cancel As Integer)
Me.Recordset = rsClienti
End Sub
Errore: Errore in run-time 2593
Come faccio a creare i report visto che non ci sono tabelle o query?
Grazie