Chi mi dice dove sbaglio?
qui sotto parte della formula che non funziona e in ROSSO
la riga che mi da errore. Che sbaglio?
in un'altro DB invece mi funziona.
-----------------------------------------------------------
Private Sub CodiceProdottoPost_AfterUpdate()
On Error GoTo Err_CodiceProdottoPost_AfterUpdate
Dim strFiltro As String
strFiltro = "IDCodiceProdottoTabProd= " & Me!CodiceProdottoPost

Me![LumenPost] = DLookup("LumenTabProd", "TAB Prodotti", strFiltro)
Me!......
Me!......
-----------------------------------------------------------------
Grazie.
Giorgio