ciao ragazzi, torno a chiedere il vostro aiuto.. sto scrivendo un codice per scrivere una query a campi incrociati in un report dinamico.. tuttavia quando lo avvio mi da il seguente errore " Errore di compilazione: variabile non definita"..
dove sbaglio? :=?
( windows 7-32bit-Access 2010)
Option Compare Database
Option Explicit
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
Me.RecordSource = "Settimanaoperai"
Dim qdf As DAO.QueryDef
Dim fld As DAO.Field
Dim rst As DAO.Recordset
Dim Conta As Integer
Set qdf = CurrentDb().QueryDefs("settimanaoperai")
qdf.Parametri![Maschere!Gestionepersonale!testo9] = Maschere!gestionepersonale!Testo7
qdf.Parametri![Maschere!Gestionepersonale!testo9] = Maschere!gestionepersonale!Testo9
Set rst = qdf.OpenRecordset
Conta = 1
For Each fld In rst.Fields
Me("Etichetta" & Trim(Conta)).Caption = fld.Name
Me("Etichetta" & Trim(Conta)).Visible = True
Me("Controllo" & Trim(Conta)).ControlSource = fld.Name
Me("Controllo" & Trim(Conta)).Visible = True
Conta = Conta + 1
Next
Set rst = Nothing
Set qdf = Nothing
Set fld = Nothing
End Sub
End Sub
grazie mille raga :(