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


3 participantes

    [Resolvido]Form Folha de dados

    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Form Folha de dados Empty Form Folha de dados

    Mensagem  Leandro 7/6/2011, 20:40

    Boa tarde, preciso de ajuda para uma condição em um form que uso no modo FOLHA DE DADOS.
    Eu tenho que lançar os campos:
    PROTOCOLO, DATA, EQUIPE, SERVIÇO E KILOMETRAGEM.
    Cada lançamento é referente a um serviço, mas dentro de um serviço tenho vários códigos e por isso repetirei o protocolo. Quando eu lançar o protocolo pela 1ª vez eu lançarei kilometragem, mas quando eu repetir o protocolo a kilometragem tem que ser zero.
    O campo kilometragem é uma combobox realcionada. Essa combo não pode oferecer outra opção para o usuário quando o protocolo se repetir, tem que ser zero. Como posso fazer isso?, no excel eu já fiz e funciona, mas o excel nem se compara ao access em termos de banco de dados.
    Lembro novamente, meu form está no modo FOLHA DE DADOS.
    Muito obrigado
    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  sergiosdl 7/6/2011, 21:05

    Amigão não é sugerido utilizar nome de campos com palavras especificas do access como por exemplo DATA
    se eu entendi faria da seguinte maneira; Coloque no evento apos atualizar do campo protocolo para verificar se ja foi lancado algum protocolo com este numero da seguinte maneira:
    if dcount("campochavedatabela","nomedatabela","[protocolo] =" & me.protocolo) > 0 then kilometragem = 0
    seguindo esta linha de raciocinio vc pode bloquear o campo se necessário.....
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Leandro 7/6/2011, 21:16

    Sérgio, obrigado pela dica, eu coloquei esses nomes para facilitar a explicação, no banco eles estão diferentes.
    Esses dias também recebi uma dica que o form em folha de dados não funciona com vba essa linha que você me passou é par vba?
    avatar
    Convidado
    Convidado


    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Convidado 8/6/2011, 00:47

    Se é uma combo.. coloque este codigo no evento após atualizar da mesma..
    Assim quando escolher o protocolo, ele checara se ja existe.. se sim a kilometragem será "0"
    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  sergiosdl 8/6/2011, 13:19

    Sim amigo, é do vba.
    seguindo a ideia do Harysohn vc pode no modo estrutura do formulario clicar com o botão auxiliaro do mouse na combo e em proriedades ir na guia eventos, e utilize o evento apos atualizar para colocar o codigo
    abraços
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Leandro 8/6/2011, 15:42

    Beleza caros amigos, no vba está funcionando certinho, o código que usei é este:
    Private Sub PROTOCOLO_AfterUpdate()
    If DCount([PROTOCOLO], "tabmediçãoman", "[PROTOCOLO] > 1") Then
    COD__DESLOC_.Value = 0
    End If
    End Sub
    Agora tem uma coisa, ele não trava a combo no zero, se o usuário abril-la ele conseguirá lançar os outros valores. Na origem da linha da combo COD__DESLOC_ eu uso essa consulta:
    SELECT [TabPrecosDeslUrbManutencao].[CodigodoServicoMedicao], [TabPrecosDeslUrbManutencao].[Descricao], [TabPrecosDeslUrbManutencao].[Recurso], [TabPrecosDeslUrbManutencao].[TIPO], [TabPrecosDeslUrbManutencao].[ICOM], [TabPrecosDeslUrbManutencao].[VEÍCULO] FROM TabPrecosDeslUrbManutencao WHERE ((([TabPrecosDeslUrbManutencao].[Recurso])=Formulários!FormTabMedicaoMan!RECURSO) And (([TabPrecosDeslUrbManutencao].[TIPO])=Formulários!FormTabMedicaoMan!TXTEXCESSÃO) And (([TabPrecosDeslUrbManutencao].[ICOM])=Formulários!FormTabMedicaoMan!Texto64) And (([TabPrecosDeslUrbManutencao].[VEÍCULO])=Formulários!FormTabMedicaoMan!TXTVEICULO));
    Tem como colocar essa linha no Else do VBA?
    avatar
    Convidado
    Convidado


    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Convidado 8/6/2011, 18:22

    Travar no zero como? não entendi muito bem amigão???
    avatar
    Convidado
    Convidado


    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Convidado 8/6/2011, 18:26

    Private Sub PROTOCOLO_AfterUpdate()
    If DCount([PROTOCOLO], "tabmediçãoman", "[PROTOCOLO] > 1") Then
    COD__DESLOC_.Value = 0
    Me.COD_DESLOC.Locked = True 'Aqui bloqueia o campo
    Me.COD_DESLOC.Enabled = False 'Aqui deixa o campo desabilitado
    End If
    End Sub
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Leandro 9/6/2011, 13:07

    Harysohn, deu certo o Locked = True, mas acabei de entender que o problema é que a Dcount está contando o número de campos, como eu já disse tenho que usar o form no modo folha de dados, e quando dou entrada em uma nova linha a Dcount conta o número de campos e não os valores dentro deles, até fiz uma modificação intuitiva no VBA imaginando que pudesse funcionar mas não funcionou, o código ficou assim:


    Private Sub PROTOCOLO_AfterUpdate()
    If DCount([PROTOCOLO], "tabmediçãoman", [PROTOCOLO].Value > 1) Then
    Me.COD__DESLOC_.Value = 0
    Me.COD__DESLOC_.Locked = True
    Else
    Me.COD__DESLOC_.Locked = False
    End If
    End Sub






    Muito obrigado pelas ajudas.
    avatar
    Convidado
    Convidado


    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Convidado 9/6/2011, 13:40

    No caso o DCount esta buscando em todas as linha para comparação, tente substitui-lo pelo Dlookup

    Saudações
    avatar
    Convidado
    Convidado


    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Convidado 9/6/2011, 13:57

    Prezado leandro... Com a juda do grande Criquio:

    Não seria assim:

    If DCount("*", "tabmediçãoman", "PROTOCOLO=" & Me!PROTOCOLO) > 1 Then

    Isso pega bem no evento "Ao atualizar" da combo.

    Teste assim
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Leandro 9/6/2011, 15:01

    Obrigado pela força,
    A combo até fica com o valor zero mas quando preciso quando lanço um protocolo diferente ela continua travada.
    Tem como através do VBA eu definir o que vai na Origem da linha e Origem do Controle?
    Muito obrigado
    avatar
    Convidado
    Convidado


    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Convidado 9/6/2011, 15:04

    If DCount("*", "tabmediçãoman", "PROTOCOLO=" & Me!PROTOCOLO) > 1 Then
    COD__DESLOC_.Value = 0
    Me.COD_DESLOC.Locked = True 'Aqui bloqueia o campo
    Me.COD_DESLOC.Enabled = False 'Aqui deixa o campo desabilitado

    Else
    Me.COD_DESLOC.Locked = False 'Aqui desbloqueia o campo
    Me.COD_DESLOC.Enabled = True 'Aqui deixa o campo Habilitado


    Teste esste ai... Em dando certo encerre o tópico e sobre a questao da origem da linha, tem sim a possibilidade de fazer em VBA. Mas abra outro tópico para isso
    Nova Dúvida = Novo Tópico, senão fica confuso para quem aconmpanha

    Saudações
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Form Folha de dados Empty [ENCERRADO]Form Folha de dados

    Mensagem  Leandro 9/6/2011, 15:14

    Esse tópico está sendo encerrado para que um novo referente a dúvida diferente dentro da mesma questão seja aberto.
    Muito obrigado
    avatar
    Convidado
    Convidado


    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Convidado 9/6/2011, 16:26

    O Fórum agradece o Retorno

    Saudações

    Coloque o resolvido ai Amigão!!
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Form Folha de dados Empty [RESOLVIDO]

    Mensagem  Leandro 9/6/2011, 17:47

    Tópico resolvido.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  vieirasoft 15/6/2011, 22:33

    Para colocar Resolvido é só clicar no botão abaixo.

    Conteúdo patrocinado


    [Resolvido]Form Folha de dados Empty Re: [Resolvido]Form Folha de dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 00:45