tenho uma moldura com 3 opções que filtra uma comba no subfrm e no evento depois de actualizar tenho estes codigos:
Private Sub Moldura197_AfterUpdate()
If Me.Moldura197.Value = 1 Then
Me.txtFiltra.Value = "LIMP"
ElseIf Me.Moldura197.Value = 2 Then
Me.txtFiltra.Value = "OBRA"
Else
Me.txtFiltra.Value = "ARRU"
End If
Forms!frm_caixaSaidas.detalheSaidas_subformulário.Form!CodProduto.Requery
na consulta, no critério isto:
como "*"& [formulario]!frmsaida]![txtFiltra]&"*"
Está tudo a trabalha bem,mas preciso de acrecentar mais 6 opções "VEST","ALIM", "CALÇ", "DIVR","ELET", "SINL"
e ao tentar acrecentar no evento mais estas opções dá erro.
o que peço é se há alguém com desponiblidade para ajudar a rescrever o codigo acima pois não estou a conseguir
obrigado.
Private Sub Moldura197_AfterUpdate()
If Me.Moldura197.Value = 1 Then
Me.txtFiltra.Value = "LIMP"
ElseIf Me.Moldura197.Value = 2 Then
Me.txtFiltra.Value = "OBRA"
Else
Me.txtFiltra.Value = "ARRU"
End If
Forms!frm_caixaSaidas.detalheSaidas_subformulário.Form!CodProduto.Requery
na consulta, no critério isto:
como "*"& [formulario]!frmsaida]![txtFiltra]&"*"
Está tudo a trabalha bem,mas preciso de acrecentar mais 6 opções "VEST","ALIM", "CALÇ", "DIVR","ELET", "SINL"
e ao tentar acrecentar no evento mais estas opções dá erro.
o que peço é se há alguém com desponiblidade para ajudar a rescrever o codigo acima pois não estou a conseguir
obrigado.