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]Problema ao abrir formulário filtrado

    dteixa
    dteixa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 281
    Registrado : 15/01/2012

    [Resolvido]Problema ao abrir formulário filtrado Empty Problema ao abrir formulário filtrado

    Mensagem  dteixa Sáb 16 Jun 2012, 00:57

    Boas
    tenho uma tabela chamada Marcação de Consultas, e um campo de numeração automática chamado Nº do Verbete
    No formulário de consulta eu quero carregar no campo (Nº do Verbete) e abrir o formulário com respectivo nº clicado

    estou a usar este código mas não funciona

    Private Sub Nº_do_Verbete_Click()


    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Marcação de Consultas"
    stLinkCriteria = "[Nº DO VERBETE]=" & "'" & Me![Nº DO VERBETE] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    'DoCmd.Close acForm, ("Nº DO VERBETE"), acSavePrompt

    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    [Resolvido]Problema ao abrir formulário filtrado Empty Re: [Resolvido]Problema ao abrir formulário filtrado

    Mensagem  Alexandre Neves Sáb 16 Jun 2012, 12:04

    Bom dia,

    Denomine os campos evitando espaços, letras acentuadas e sinais especiais.
    Se o campo é tipo número, não envolva com pelicas na expressão do filtro

    Private Sub NVerbete_Click()
    DoCmd.OpenForm "MarcacaoConsultas", , , "NVerbete=" & Me.NVerbete
    End Sub
    dteixa
    dteixa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 281
    Registrado : 15/01/2012

    [Resolvido]Problema ao abrir formulário filtrado Empty Re: [Resolvido]Problema ao abrir formulário filtrado

    Mensagem  dteixa Sáb 16 Jun 2012, 16:27

    Obrigado pela resposta, mas já tinha resolvido foi só tirar o apostrofo, ficou assim




    Private Sub Nº_do_Verbete_Click()


    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Marcação de Consultas"
    stLinkCriteria = "[Nº DO VERBETE]=" & "" & Me![Nº DO VERBETE] & ""
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    'DoCmd.Close acForm, ("Nº DO VERBETE"), acSavePrompt

    End Sub
    dteixa
    dteixa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 281
    Registrado : 15/01/2012

    [Resolvido]Problema ao abrir formulário filtrado Empty Re: [Resolvido]Problema ao abrir formulário filtrado

    Mensagem  dteixa Sáb 16 Jun 2012, 16:29

    obrigado
    Granizus
    Granizus
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 30/12/2011

    [Resolvido]Problema ao abrir formulário filtrado Empty Me salvou

    Mensagem  Granizus Dom 17 Jun 2012, 03:00

    Very Happy Olá, sou iniciante, deixo aqui meu manifesto no tocante ao tópico, salvou-me de problema idêntico. Obrigado.

    Conteúdo patrocinado


    [Resolvido]Problema ao abrir formulário filtrado Empty Re: [Resolvido]Problema ao abrir formulário filtrado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 19 Abr 2024, 14:21