MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Copiar e Colar com Condição

    Compartilhe

    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    [Resolvido]Copiar e Colar com Condição

    Mensagem  Jeferson de Paula em Sex 19 Jul 2013, 18:01

    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


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  HARYSOHN em Sex 06 Set 2013, 22:04

    Como anda esta solução amigão?

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  HARYSOHN em Sex 06 Set 2013, 23:33

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  Jeferson de Paula em Sab 07 Set 2013, 23:52

    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!


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL

    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  Jeferson de Paula em Seg 09 Set 2013, 12:37

    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!


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  HARYSOHN em Seg 09 Set 2013, 14:01

    Eis:


    Cumprimentos.
    Anexos
    ExemploEscala.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (35 Kb) Baixado 48 vez(es)


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  Jeferson de Paula em Seg 09 Set 2013, 14:19

    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!


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  HARYSOHN em Seg 09 Set 2013, 19:35

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

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  Jeferson de Paula em Seg 09 Set 2013, 20:04

    Segue em anexo o Print... Baixar Exemplo!

    Cumprimentos!


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL

    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  Jeferson de Paula em Qua 11 Set 2013, 17:36

    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 [Você precisa estar registrado e conectado para ver esta imagem.]?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  HARYSOHN em Sex 01 Nov 2013, 00:58

    Como anda este tópico amigão?

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Jeferson de Paula
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 364
    Registrado : 06/04/2013

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  Jeferson de Paula em Ter 05 Nov 2013, 14:59

    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 [Você precisa estar registrado e conectado para ver esta imagem.]?


    .................................................................................
    Atenciosamente
    Aldo Jeferson de Paula
    Blog Support SQL Server
    Fórum Support SQL Server

    Quem nunca ouviu alguém falando mal do Microsoft® Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

    Tópicos Recomendáveis
    > Kit Geográfico 2013
    > Novo na Programação do Access?
    > Curso de Access/VBA Completo
    > Conceitos Básicos em T-SQL

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: [Resolvido]Copiar e Colar com Condição

    Mensagem  HARYSOHN em Ter 05 Nov 2013, 16:25

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

    Mande a explicação e o modelo atual

    Cumprimentos.


    Última edição por HARYSOHN em Sab 01 Fev 2014, 10:40, editado 1 vez(es) (Razão : Tópico dado como resolvido por falta de resposta)


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Seg 05 Dez 2016, 16:30