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


2 participantes

    [Resolvido]comparar valor de campo com valor de txtbox

    avatar
    ewertonms
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 20/09/2012

    [Resolvido]comparar valor de campo com valor de txtbox Empty comparar valor de campo com valor de txtbox

    Mensagem  ewertonms 12/3/2013, 18:05

    Olá pessoal estou com um problema que não consigo resolver, tenho uma tabela com uma campo data abreviada com datas liberadas para agendamentos, no form tenho um calendario que retorna a data clicada para uma txtbox e um botão para abrir um subformulario continuo filtrado para exibir somente os registros para o dia selecionado, eu gostaria de comparar a data da txtbox com as datas liberadas na tabela para que somente abra o subform se a data estiver liberada para agendamento, não estou conseguindo montar o codigo vba para que o clique do botão verifique as datas e se estiver na tabela abra o subform e se não estiver abra uma msgbox, alguem pode ajudar?
    Bred
    Bred
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 115
    Registrado : 15/09/2010

    [Resolvido]comparar valor de campo com valor de txtbox Empty Re: [Resolvido]comparar valor de campo com valor de txtbox

    Mensagem  Bred 12/3/2013, 18:24

    ewertonms. seria bom se você pudesse posta um exemplo do seu banco assim ficaria mais fácil poder lhe ajudar.


    .................................................................................
    "O topo da sabedoria é alcançar a humildade..."
    avatar
    ewertonms
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 20/09/2012

    [Resolvido]comparar valor de campo com valor de txtbox Empty Re: [Resolvido]comparar valor de campo com valor de txtbox

    Mensagem  ewertonms 12/3/2013, 18:49

    Bred, obrigado pelo retorno, mas fiz mais alguns testes e já encontrei a solução, segue abaixo:

    Private Sub btnteste_Click()

    If (DLookup("[id]", "tbldtliberada", "[lbdata]=" & "dtref")) > 0 Then
    DoCmd.OpenForm "teste2"
    Else
    MsgBox "Dia não disponivel para agendamento"
    End If
    End Sub

    Conteúdo patrocinado


    [Resolvido]comparar valor de campo com valor de txtbox Empty Re: [Resolvido]comparar valor de campo com valor de txtbox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/5/2024, 06:27