A instrução no botão "Alterar" no formulario 4 (UserForm4) seleciona no banco de dados somente o registro do funcionario
MinhaDatabase.Open "SELECT * FROM [Cartão] WHERE CódigoFuncional=" & (Me.LabelNumero) & ";"
assim sempre irá encontrar o primeiro registro de cada funcionario.
Deve incluir nessa "pesquisa", tambem a data do registro que será alterado
algo =/- assim
WHERE CódigoFuncional=" & Código & " AND Data =
Observação: Caso não encontrar o registro /data, o mesmo deve ser incluido no banco
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 03/08/2017 6:23 am