Buonasera,
Ho realizzato una funzione che assegna ad un controllo il valore di un valore campo, passando come variabile il nome del controllo e il nome campo di una Query sfruttando la proprietà recordset.fields:
Public Function carica_valori_rec(camp As String, contr As control)
Dim db As DAO.Database, rst As DAO.Recordset
Set db = DBEngine(0)(0)
Set rst = db.OpenRecordset("Q_Protocollo", dbOpenDynaset)
rst.FindFirst "ID_Assegnazione=" & N_ID
If Not rst.NoMatch Then
contr = rst.Fields("camp")
End If
rst.Close
db.Close
End Function
utilizzando poi la funzione in una sub, dove Tipo_Campione e Descrizione_Campione sono due campi della Query:
Public Sub valori_rec() ' carica i controlli della main leggendo i campi della sottomaschera
carica_valori_rec Tipo_Campione, Form_Main.cbotipo_camp
carica_valori_rec Descrizione_Campione, Form_Main.txtdescr_camp
end sub
Ottengo un errore Variabile non definita e non capisco perchè.
Potreste aiutarmi?
Grazie.