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

    Carregar consulta SQL em um Formulário

    =>Nois
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012
    • Mensagem nº1

    Carregar consulta SQL em um Formulário Empty Carregar consulta SQL em um Formulário

    Mensagem  =>Nois 22/2/2019, 16:35

    Boa tarde

    arrumei um conversor de consulta vba para sql e fiz a conversão da mesma

    A pergunta é como carregar a consulta abaixo no formulario (ele estava vinculado) retirei o vinculo.


    DoCmd.RunSQL " SELECT veiculos.CODIGO, veiculos.[PLACA CARRETA], veiculos.[PLACA CAVALO], veiculos.TRANSPORTADORA, veiculos.[TIPO VEICULO], veiculos.MOTORISTA, veiculos.[DESTINO INTERNO], veiculos.FORNECEDOR, veiculos.[TIPO CARGA], veiculos.CNH, veiculos.AÇÃO, veiculos.DATA_HORA_PORT_CHEG, veiculos.DATA_HORA_ENTR, veiculos.JUSTIFICATIVA1, veiculos.BAIXAR, veiculos.CARGA_AMARRADA, veiculos.COD_VINCULO, veiculos.RESPONSAVEL, veiculos.MVM, veiculos.N_CAR, veiculos.ADUANA_CRUZE, veiculos.[NF ENTRADA], veiculos.DATA_HORA_PORT_CHEG1, veiculos.DATA_HORA_ENTR1 " & _
    " FROM veiculos " & _
    " WHERE (((veiculos.CODIGO)=[Formulários]![frm_Fluxo_Portaria_Entrada]![txtOsList]));"

    antes era assim:

    SELECT veiculos.CODIGO, veiculos.[PLACA CARRETA], veiculos.[PLACA CAVALO], veiculos.TRANSPORTADORA, veiculos.[TIPO VEICULO], veiculos.MOTORISTA, veiculos.[DESTINO INTERNO], veiculos.FORNECEDOR, veiculos.[TIPO CARGA], veiculos.CNH, veiculos.AÇÃO, veiculos.DATA_HORA_PORT_CHEG, veiculos.DATA_HORA_ENTR, veiculos.JUSTIFICATIVA1, veiculos.BAIXAR, veiculos.CARGA_AMARRADA, veiculos.COD_VINCULO, veiculos.RESPONSAVEL, veiculos.MVM, veiculos.N_CAR, veiculos.ADUANA_CRUZE, veiculos.[NF ENTRADA], veiculos.DATA_HORA_PORT_CHEG1, veiculos.DATA_HORA_ENTR1
    FROM veiculos
    WHERE (((veiculos.CODIGO)=[Formulários]![frm_Fluxo_Portaria_Entrada]![txtOsList]));


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    • Ir para o topo
    ConectadoAlexandre Fim
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3465
    Registrado : 13/12/2016
    • Mensagem nº2

    Carregar consulta SQL em um Formulário Empty Re: Carregar consulta SQL em um Formulário

    Mensagem  Alexandre Fim 22/2/2019, 17:11

    Ola,

    Tente isso.

    Código:


    Public Sub CarregarDados()
    Dim DB                  As DAO.Database
    Dim rs                  As DAO.Recordset
    Dim intCodigo          As Integer

       
        intCodigo = [formulários]![frm_fluxo_portaria_entrada]![txtoslist]
       
        sSQL = "SELECT codigo,"
        sSQL = sSQL & " placa carreta],"
        sSQL = sSQL & " [placa cavalo],"
        sSQL = sSQL & " transportadora,"
        sSQL = sSQL & " [tipo veiculo],"
        sSQL = sSQL & " motorista,"
        sSQL = sSQL & " [destino interno],"
        sSQL = sSQL & " fornecedor,"
        sSQL = sSQL & " [tipo carga],"
        sSQL = sSQL & " cnh,"
        sSQL = sSQL & " [Ação],"
        sSQL = sSQL & " data_hora_port_cheg,"
        sSQL = sSQL & " data_hora_entr,"
        sSQL = sSQL & " justificativa1,"
        sSQL = sSQL & " baixar,"
        sSQL = sSQL & " carga_amarrada,"
        sSQL = sSQL & " cod_vinculo,"
        sSQL = sSQL & " responsavel,"
        sSQL = sSQL & " mvm,"
        sSQL = sSQL & " n_car,"
        sSQL = sSQL & " aduana_cruze,"
        sSQL = sSQL & " [nf entrada],"
        sSQL = sSQL & " data_hora_port_cheg1,"
        sSQL = sSQL & " data_hora_entr1 "
        sSQL = sSQL & " FROM  veiculos "
        sSQL = sSQL & " WHERE codigo = " & intCodigo & ""
       
        Set rs = DB.OpenRecordset(sSQL, dbOpenDynamic)
        Set Me.Recordset = rs
       


    End Sub




    Boa sorte

    []'s
    • Ir para o topo
    =>Nois
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 980
    Registrado : 09/11/2012
    • Mensagem nº3

    Carregar consulta SQL em um Formulário Empty Re: Carregar consulta SQL em um Formulário

    Mensagem  =>Nois 23/2/2019, 11:09

    não funcionou deu estouro,
    vou tentar montar um exemplo mais simples para testar


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

    Carregar consulta SQL em um Formulário Empty Re: Carregar consulta SQL em um Formulário

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 18/10/2024, 07:33