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]Detectar colisão

    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Detectar colisão Empty [Resolvido]Detectar colisão

    Mensagem  roberval 4/8/2015, 13:23

    Bom dia...
    Bom estou criando um form onde no fim dele tem uma caixa (Caixa0) e no inicio do form tem uma outra caixa (Caixa1)
    Quando inicia, a Caixa1 começa a descer, mas quando chega na Caixa0 ele passa... Tem algum jeito dele detectar a colisão e para, ao invés de passar direto?

    Vlw..


    Última edição por roberval em 4/8/2015, 19:47, editado 1 vez(es)


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo 4/8/2015, 14:10

    Ola;

    Não entendi direito, mas o que você deve querer é:

    Com o form aberto em modo de estrutura, botão direito do mouse em cima do detalhe do form e ir a "Tab Order", agora é só colocar os campos por ordem.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Detectar colisão Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Detectar colisão Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Detectar colisão Folder_announce_new Instruções SQL como utilizar...
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  roberval 4/8/2015, 14:15

    Não é exatamente isso...
    Bom vamos supor que seja um jogo...
    No caso a Caixa0 será o personagem
    E a Caixa1 será uma parede, então a Caixa0 não pode atravessar a Caixa1..
    Bom foi a melhor explicação que eu encontrei... What a Face


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo 4/8/2015, 14:17

    Então terá de utilizar a função IF.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Detectar colisão Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Detectar colisão Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Detectar colisão Folder_announce_new Instruções SQL como utilizar...
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  roberval 4/8/2015, 14:23

    "Esse é o problema"...
    Quais as condições que tem que ser?


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo 4/8/2015, 14:25

    Criando o simples, pode testar;

    Num modulo VBA, apenas digite a variavel e salve;

    Código:
    Public x As Variant

    No form, ao perder o foco da Caixa0;

    Código:
    Private Sub Caixa0_LostFocus()
        x = 0
        x = 1
    End Sub

    Ao receber o foco na Caixa1;

    Código:
    Private Sub Caixa1_GotFocus()
        If x = 1 Then
          MsgBox "Erro", vbCritical
          x = 0
          DoCmd.CancelEvent
          Me.Caixa0.SetFocus
          Else
        Exit Sub
        End If
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Detectar colisão Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Detectar colisão Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Detectar colisão Folder_announce_new Instruções SQL como utilizar...
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  roberval 4/8/2015, 14:38

    Bem... Não é bem isso...

    É que eu estou na empresa e não posso anexar o meu projeto, pois aqui não posso abrir o dropbox ou 4shared

    Mas assim... O objeto Caixa0 se movimenta pelo form, e não pode atravessar o objeto Caixa1...


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo 4/8/2015, 14:56

    Só vendo acontecer mesmo, assim é dificil.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Detectar colisão Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Detectar colisão Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Detectar colisão Folder_announce_new Instruções SQL como utilizar...
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  roberval 4/8/2015, 15:04

    tem como eu te enviar por email?


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo 4/8/2015, 15:10

    Claro;

    jpaulo65@gmail.com


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Detectar colisão Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Detectar colisão Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Detectar colisão Folder_announce_new Instruções SQL como utilizar...
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  roberval 4/8/2015, 15:17

    Desculpe...

    Esqueci que não da pra mandar mensagens para outros emails de fora :/

    quando eu chegar em casa te mando pelo meu email pessoal... por enquanto eu continuo usando uma gambiarra que eu fiz Wink


    .................................................................................
    lol!      Juro que eu sou legal     lol!
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  JPaulo 4/8/2015, 15:20

    Tranquilo.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Detectar colisão Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Detectar colisão Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Detectar colisão Folder_announce_new Instruções SQL como utilizar...
    avatar
    Ricardo Ivan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 28/04/2015

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  Ricardo Ivan 4/8/2015, 19:03

    Adicione dois retangulos em um form com os nomes caixa0 e caixa1.
    Deixe o caixa0 acima do caixa1.

    Cole o código no módulo do form:

    Código:


    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode

    Case vbKeyDown
        
        If Me.Caixa0.Top <= Me.Caixa1.Top - Me.Caixa1.Height Then
            Me.Caixa0.Top = Me.Caixa0.Top + 20
        End If
            
    End Select



    End Sub




    Agora pressione a tecla para baixo para ver o funcionamento!  Very Happy

    Acredito que era isso que você queria!
    roberval
    roberval
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 85
    Registrado : 17/05/2015

    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  roberval 4/8/2015, 19:45

    Ricardo Ivan...
    Vlw cara!... era exatamente isso! cheers


    .................................................................................
    lol!      Juro que eu sou legal     lol!

    Conteúdo patrocinado


    [Resolvido]Detectar colisão Empty Re: [Resolvido]Detectar colisão

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 09:15