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

    Fechar conexão no subformulário SQL

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 962
    Registrado : 09/11/2012

    Fechar conexão no subformulário SQL Empty Fechar conexão no subformulário SQL

    Mensagem  =>Nois 6/10/2020, 13:45

    tenho esse codigo abaixo onde carrego uma consulta no subformulário, mas não consigo arrumar uma forma de fechar a consulta a tabela permanece aberta para listbox consigo de boa mas para subformulário to quebrando cabeça

    os comentários estão na instrução



    Código:
    Dim conexao As New Cls_Conexao

    Dim strSql As String

    strSql = "SELECT veiculos.CODIGO, veiculos.[PLACA CARRETA], veiculos.[PLACA CAVALO], veiculos.TRANSPORTADORA, veiculos.FORNECEDOR, veiculos.[DESTINO INTERNO], " & _
    "veiculos.DATA_HORA_PORT_CHEG, veiculos.DATA_HORA_ENTR, veiculos.DATA_HORA_EXP_ENTR, veiculos.DATA_HORA_EXP_SAID, veiculos.DATA_HORA_REC_ENTR, " & _
    "veiculos.DATA_HORA_REC_SAID, veiculos.DATA_HORA_PORT_SAID, PrimUlt([Motorista]) AS MotoristaCarga, Now() AS Data_agora, DateDiff('n',[Data_agora], " & _
    "[Ref_Programa]) AS CalcMin, IIf([DESTINO INTERNO]='RECEBIMENTO',[DATA_HORA_ENTR]+#12/30/1899 0:30:0#,[DATA_HORA_ENTR]+#12/30/1899 1:10:0#) AS Ref_Programa, " & _
    "IIf([PorcResul]>=0.8,'VERMELHO',IIf([PorcResul]>=0.5,'AMARELO',IIf([PorcResul]<0.5,'VERDE','VERMELHO'))) AS Semaforo, " & _
    "IIf([Semaforo]='Vermelho',1,0) AS SemaforoVermelho, IIf([Semaforo]='Amarelo',1,0) AS SemaforoAmarelo, IIf([Semaforo]='Verde',1,0) AS SemaforoVerde, veiculos.BAIXAR,  " & _
    "veiculos.BAIXAR_3, (mintotime([CalcMinTT])) AS TempoTT, IIf([calcmin]>=0,mintotime([CalcMin]),IIf([CalcMin]<0 And [CalcMin]<-59,mintotime([CalcMin]),'-' & mintotime([CalcMin]))) AS Prazo,  " & _
    "Round(DateDiff('n',[DATA_HORA_ENTR],[Data_agora])) AS CalcMinTT, IIf([Destino Interno]='RECEBIMENTO',30,70) AS TempoRef, ([CalcMinTT]/[TempoRef]) AS PorcResul, veiculos.BAIXAR_2,  " & _
    "veiculos.BAIXAR_4, IIf([Destino Interno]='RECEBIMENTO' And [BAIXAR_4]=True,'PORTARIA OUT',  " & _
    "IIf([Destino Interno]='RECEBIMENTO' And [BAIXAR_4]=False,'RECEBIMENTO',IIf([Destino Interno]='EXPEDIÇÃO' And [BAIXAR_2]=True,'PORTARIA OUT', " & _
    "IIf([Destino Interno]='EXPEDIÇÃO' And [BAIXAR_2]=False,'EXPEDIÇÃO')))) AS Localizacao " & _
    "FROM veiculos " & _
    "WHERE (((veiculos.[DESTINO INTERNO]) Like [Forms]![frm_Lead_Time_Painel].[txtArea] & '*') AND ((veiculos.BAIXAR)=True) AND ((veiculos.BAIXAR_3)=False))" & _
    "ORDER BY veiculos.CODIGO;"

    'Aquiexecuta normal
    Forms!frm_Lead_Time_Painel!frm_Lead_Time_Painel_sub.Form.RecordSource = strSql


    'Aqui não executa e nem fecha a conexão no recordsource
    'ja tentei referenciar ao subformulario de várias maneiras

    conexao.Abrir_Conexao
    conexao.Executar_Data_Reader (strSql)
    Set Form.RecordSource = Nothing
    Set Form.RecordSource = conexao.Fechar_Data_Reader
    conexao.data_reader


    'Do tipo lista funfa bacana no recordset

    'conexao.Abrir_Conexao
    '
    'conexao.Executar_Data_Reader (strSql)
    '
    'Set List_Pedido.Recordset = Nothing
    'Set List_Pedido.Recordset = conexao.data_reader
    '
    'conexao.Fechar_Data_Reader


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

    Se tudo não der certo... tente de novo drunken
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 475
    Registrado : 25/02/2016

    Fechar conexão no subformulário SQL Empty Re: Fechar conexão no subformulário SQL

    Mensagem  FranklinJSP 6/10/2020, 14:19

    Olá

    Tenta assim:

    Código:
    Set conexao = Nothing
    If CBool(conexao.state And adStateOpen) Then conexao.Close

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 962
    Registrado : 09/11/2012

    Fechar conexão no subformulário SQL Empty Re: Fechar conexão no subformulário SQL

    Mensagem  =>Nois 6/10/2020, 14:54

    deu não franklin

    meu problema é no recordset só funciona no recordsource

    e os dados devem aparecer no sub formulário mas também não consegui

    justamente nessa parte aqui:

    'conexao.Abrir_Conexao
    '
    'conexao.Executar_Data_Reader (strSql)
    '
    'Set frm_Lead_Time_Painel_sub.Recordset = Nothing
    'Set frm_Lead_Time_Painel_sub.Recordset = conexao.data_reader
    '
    'conexao.Fechar_Data_Reader

    desse jeito executa e funciona normal mas não sei fechar a conexão

    Forms!frm_Lead_Time_Painel!frm_Lead_Time_Painel_sub.Form.RecordSource = strSql



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

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 962
    Registrado : 09/11/2012

    Fechar conexão no subformulário SQL Empty Re: Fechar conexão no subformulário SQL

    Mensagem  =>Nois 9/11/2020, 17:38

    up Exclamation


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

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 26/1/2023, 23:02