[Resolvido]Copiar e Colar com Condição

Fala Galerinha,

Tenho uma função VBA simples que copia dados de um formulário para outro formulário. No formulário "formEscala" possui a data e o município da filial, porém eu preciso escalar um funcionário para ir até a filial em um fim de semana exemplo: 03/08/2013 e 04/08/2013, mas não consigo fazer isso, quando eu clico no botão escalar que está no "formEscala" ele copia o código e o nome do funcionário do formulário "formFuncionarios" somente em uma data exemplo: 03/08/2013 e 04/08/2013 fica em branco. Alguém pode me ajudar?

Vale lembrar que as vezes o mesmo vai no meio da semana, depende da data criada na tabela para a filial. Por exemplo, se possível fazer ele somar ("03/08/2013 + 1") para não haver problemas.

Está em anexo no link abaixo parte do banco de dados, o mesmo usado no tópico anterior do JPaulo (Condição com Not Exists - VBA) de comparação de datas.

Download do Banco de Dados

Como anda esta solução amigão?

Cumprimentos.

Se ainda não resolveu ai vai:

Crie um módulo e o nomeie de mdlVarGlobais, neste:
Public StrNome as string
Public strID as string

No frmEscala no evento ao receber foco da caixa texto txtNomeFuncionario:

Private Sub txtNomeDoFuncionario_GotFocus()
Dim rs As DAO.Recordset
Dim X As Integer
Set rs = Me.RecordsetClone


For X = 1 To rs.RecordCount
Me.txtNomeDoFuncionario = strNome
Me.CodFuncionario = strId
DoCmd.GoToRecord , , acNext
MsgBox rs.AbsolutePosition
Next X

End Sub

No botão Escalar do frmFuncionarios:

Private Sub Escalar_Click()
    strId = Me.CodFuncionario
    strNome = Me.NomeFuncionario
    Forms!formEscala!txtNomeDoFuncionario.SetFocus
End Sub



Cumprimentos.

Olá amigo PILOTO,

Ainda não resolvi não, obrigado pela dica, estarei retornando para o serviço na segunda-feira, vou tentar o que sugeriu na mensagem anterior e então darei um retorno, ok? Muito obrigado pela ajuda!

Então amigo PILOTO,

Tentei fazer o que sugeriu mas não deu certo! Segue em anexo o exemplo com as alterações...

Download do Exemplo

Desde já agradeço a ajuda!

Eis:


Cumprimentos.

Sim está correto! Mas, o problema é que o funcionário só pode ir em uma Filial em um Fim de Semana... Exemplo: No Município da Filial de São Paulo, dia 03/08/2013 e 04/08/2013 Funcionário (José Sobrinho do Paulo); No Município da Filial de São Paulo - SP 10/08/2013 e 11/08/2013 Funcionário diferente (Manuel Primo do José).

Funciona +/- assim... o nome do funcionário tem que estar no município x entre a data do fim de semana... Sab - 03/08/2013 e Dom - 04/08/2013...

Cumprimentos!

Lance um modelo dos dados manualmente no form.. e mmande um print explicativo.

Cumprimentos.

Segue em anexo o Print... Baixar Exemplo!

Cumprimentos!

E então amigo PILOTO, conseguiu entender o raciocínio?

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Como anda este tópico amigão?

Cumprimentos.

Do mesmo jeito... Ainda não consegui nada!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha ?

Reaviva-me a memória...
O que está faltando ainda?

Mande a explicação e o modelo atual

Cumprimentos.