VBAndre ha scritto:
Ciao Alex,
io sono nuovo del forum ma dal .. basso delle mie competenze ti direi di provare scrivendo questo codice nell'AfterUpdate della tua combo.
[Code]
Private Sub TuaCombo_AfterUpdate()
Me.TuaSubForm1.Form.Filter = "IDArticoloForm1 = " & Me.TuaCombo.Value
Me.TuaSubForm2.Form.Filter = "IDArticoloForm2 = " & Me.TuaCombo.Value
Me.TuaSubForm1.Form.FilterOn = True
Me.TuaSubForm2.Form.FilterOn = True
End Sub
Poi eventualmente a fianco della combo metti un pulsante che toglie i filtri
Ciao VBAndre
traducendo la tua istruzione con le mie risorse viene cosi:
Private Sub Filtra_AfterUpdate()
Me.Sottomaschera Tmp_QtaFornitori.Form.Filter = "IDArticoloForm1 = " & Me.Filtra.Value
Me.Sottomaschera Tmp_QtaClienti.Form.Filter = "IDArticoloForm2 = " & Me.Filtra.Value
Me.Sottomaschera Tmp_QtaFornitori.Form.FilterOn = True
Me.Sottomaschera Tmp_QtaClienti.Form.FilterOn = True
End Sub
Mi restituisce un errore, forse perchè ci sono spazi nei nomi delle sottomaschere?
Intanto grazie della gentilezza