Private Sub cboPuxaDepartamento_AfterUpdate()
criterio
drive.google.com/open?id=1RCodQXrah67Iqvzm1ws4sQ2lwuAr_D9L
- Código:
Me.txtcombinar = Me.cboPuxaDepartamento.Column(1)
If Me.cboPuxaDepartamento = Me.txtcombinar Then
Forms!subFrmPresencas!frmPresencas.Requery
End If
End Sub
criterio
- Código:
Como "*" & [Formulários]![frmPresencas]![cboPuxaDepartamento] & "*"
- Código:
Me.ctlSubFrmPresencas.Form.Filter = " dep like '*" & Combinação5 & "*' "
Me.ctlSubFrmPresencas.Form.FilterOn = True
End Sub
drive.google.com/open?id=1RCodQXrah67Iqvzm1ws4sQ2lwuAr_D9L