MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


    [Resolvido]Copiar e Colar com Condição

    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Copiar e Colar com Condição Empty [Resolvido]Copiar e Colar com Condição

    Mensagem  Jeferson de Paula 19/7/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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 6/9/2013, 22:04

    Como anda esta solução amigão?

    Cumprimentos.
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 6/9/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.
    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Jeferson de Paula 7/9/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
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Jeferson de Paula 9/9/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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 9/9/2013, 14:01

    Eis:


    Cumprimentos.
    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Jeferson de Paula 9/9/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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 9/9/2013, 19:35

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

    Cumprimentos.
    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Jeferson de Paula 9/9/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
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Jeferson de Paula 11/9/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 [Resolvido]Copiar e Colar com Condição 001_1810?


    .................................................................................
    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 1/11/2013, 00:58

    Como anda este tópico amigão?

    Cumprimentos.
    Jeferson de Paula
    Jeferson de Paula
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Jeferson de Paula 5/11/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 [Resolvido]Copiar e Colar com Condição 001_1810?


    .................................................................................
    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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 5/11/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 1/2/2014, 10:40, editado 1 vez(es) (Motivo da edição : Tópico dado como resolvido por falta de resposta)

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 08:12