MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Fechar conexão no subformulário SQL

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

    Respeito às Regras 100%

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

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

    Mensagem  =>Nois em 6/10/2020, 14: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 100%

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

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

    Mensagem  FranklinJSP em 6/10/2020, 15: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 100%

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

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

    Mensagem  =>Nois em 6/10/2020, 15: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 100%

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

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

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

    up Exclamation


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

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

      Data/hora atual: 25/11/2020, 02:50