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

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  infformax Seg 15 Dez - 23:06

    boa noite

    estou fazendo o seguinte

    Set C_RESUMO_FINAL = bc.OpenRecordset("SELECT C_RESUMO_FINAL.DATA, C_RESUMO_FINAL.HORA, C_RESUMO_FINAL.TIPO, C_RESUMO_FINAL.SOMADETOTAL FROM C_RESUMO_FINAL WHERE (C_RESUMO_FINAL.DATA = " & Forms!teste!DATA & " );", dbOpenSnapshot)

    ai passo para ver o que retorna
    MsgBox (C_RESUMO_FINAL("data")), vbExclamation

    ai da este erro

    erro em tempo de execucao '3021':
    nenhum registro atual


    sera que é porque estou tratando o where com data??? pois se coloco por exemplo outro campo, por exempo o tipo ele da certo
    tenho que fazer algo para refereciar a campo data??


    obrigado
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  infformax Ter 16 Dez - 14:04

    up
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  infformax Qua 17 Dez - 11:19

    up
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3951
    Registrado : 29/06/2012

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  Noobezinho Qua 17 Dez - 14:18

    Apenas conjecturas, já que não temos o aplicativo pra analisar:

    Verifique se a consulta está retornanod registros.

    Como já deveria saber, cuidado com nomes de campos/controles usando palavras reservadas do Access.
    A palavra Data é uma delas.
    Pode usar, xData, MinhaData, mas somente Data ou data, pode dar conflito.

    Aqui na consulta: (C_RESUMO_FINAL.DATA = ...) , eu sei que é o campo data da tabela C_RESUMO_FINAL

    Mas, e aqui?

    MsgBox (C_RESUMO_FINAL("data")), vbExclamation

    Assim não é nome de controle ou campo, experimente:

    MsgBox (C_RESUMO_FINAL.data), vbExclamation
    Quantos registros serão retornados para a msgbox?
    Quer mostrar os registros ou a quantidade deles.
    Ser for os registros, não seria melhor, mostrar num formulário?
    Como disse, apenas conjecturas.

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  infformax Qua 17 Dez - 19:58

    estou postando toda a rotina

    a consulta retorna tudo certinho

    nao troquei o campo data por data_aux ainda.

    quanto a colocar MsgBox (C_RESUMO_FINAL("data")), vbExclamation ==>da erro tambem


    segue a rotina toda:



    Open "teste.txt" For Output As #1



    Print #1, "  ----------------------------------------"
    Print #1, "         LANCHONETE xxxxxx"
    Print #1, "     RESUMO"
    Print #1, "  ----------------------------------------"



    'imprimi emissao e hora
    'REC_HORA = Forms!F_MOVIMENTO!HORA
    'Print #1, Tab(3); "Emissao: "; REC_HORA

    REC_DATA = Forms!teste!DATA
    Print #1, Tab(3); "Emissao: "; REC_DATA


    'selecionar items do cupom
    Dim bc As DAO.Database
    Dim C_RESUMO_FINAL As DAO.Recordset
    Set bc = CurrentDb


    'select para buscar os dados
    Set C_RESUMO_FINAL = bc.OpenRecordset("SELECT C_RESUMO_FINAL.DATA, C_RESUMO_FINAL.HORA, C_RESUMO_FINAL.TIPO, C_RESUMO_FINAL.SOMADETOTAL FROM C_RESUMO_FINAL WHERE (C_RESUMO_FINAL.DATA = " & Forms!teste!DATA & " );", dbOpenSnapshot)


    'zera o campo soma_total que é onde vou somar o total dos lanches e contar
    SOMA_BALCAO = 0
    conta_balcao = 0


    MsgBox (C_RESUMO_FINAL("data")), vbExclamation


    Do While Not C_RESUMO_FINAL.EOF


    'inicio loop
    'Do While Not C_RESUMO_FINAL.EOF
                                                             
    If C_RESUMO_FINAL("TIPO") = 1 Then
       SOMA_BALCAO = SOMA_BALCAO + C_RESUMO_FINAL!SomaDeTOTAL
       conta_balcao = conta_balcao + 1
    End If


    'vai para o proximo dado
    C_RESUMO_FINAL.MoveNext

    Loop
    'fim loop

    'imprimi o total
    Print #1, Tab(3); "BALCAO:"; conta_balcao _
    ; "       TOTAL R$"; Space(1) & Chr(27) & Chr(33) & Chr(32); Format$(Format$(SOMA_BALCAO, "#,##0.00"), "@@@@@@@@")
    Print #1, Chr(27) & Chr(33) & Chr(0)

    Print #1, "  ----------------------------------------"


    Print #1, Chr(27) + "i"

    Close #1
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3951
    Registrado : 29/06/2012

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  Noobezinho Qua 17 Dez - 21:28

    Coloque um ponto de interrupção na linha:

    MsgBox (C_RESUMO_FINAL("data")), vbExclamation

    Se não sabe como é so clicar no inicio da linha a esquerda da linha vertical, clicando a linha ficara "marrom".

    Daí rode o código, ele vai parar nessa linha deixando ela em amarelo

    Na janela imediata lá embaixo, digite

    ? C_RESUMO_FINAL.RecordCount > Enter   ' a ? singinifca "Print" que é = a mostrar, exibir, imprimir.
    Quando der o Enter aqui aparece o número de registros.
    Veja quanto registros retorna.

    Veja, se a consulta retorna mais de um registro, a linha da msgbox irá mostrar apenas um registro ou nenhum.
    Se quiser exibir todos os registros, faça-o num formulário, caso queira o número de registros dai sim pode usar
    a msgbox usando então o Dcount()

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  infformax Qua 17 Dez - 22:47

    o amigo, obrigado pela ajuda
    seguinte

    eu estou usando o msgbox apenas para ver o que ele esta pegando, ou seja, o que esta acontecendo, se desse certo ele me mostraria a 1 data e depois entra no loop
    o fato é que se eu tirar o msgbox ele roda, mas nao gera nada, entao cheguei a conclusao que ele nao esta conseguindo fazer a comparacao das datas no where, por isso nao gera nada, alias ele gera, mas apenas o cabecalho, o nome balcao, e o total em branco


    estou mandando o bd se puder dar uma olhada é claro.

    o que eu quero é um resumo por exemplo neste caso sairia na impressora termica

    data:14/12/2014
    balcao: 2      total r$ 21,95

    obrigado
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3951
    Registrado : 29/06/2012

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  Noobezinho Qui 18 Dez - 17:00

    Tai o exemplo modificado

    Veja que tive que criar uma consulta que cria uma tabela.
    e então uso essa tabela pra imprimir os dados.

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  infformax Qui 18 Dez - 22:51

    vou testar a noite

    voce descobriu o porque nao dava certo da forma que estava?

    obrigado
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3951
    Registrado : 29/06/2012

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  Noobezinho Qui 18 Dez - 23:12

    Daquela forma, sempre dava erros de falta de paramentros no OpenRecordset().
    Tentei de todas as formas possivel, e não funfava, dando o mesmo erro.
    Dai tive que inventar. Razz Razz

    []'s

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  infformax Qui 18 Dez - 23:42

    o estranho que com outro campo funciona normal

    mas beleza, vou testar e dou retorno
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3951
    Registrado : 29/06/2012

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  Noobezinho Sab 20 Dez - 12:15

    E então?




    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    infformax
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 241
    Registrado : 29/05/2013

    [Resolvido]erro em tempo de execucao '3021': nenhum registro atual    - nao acho Empty Re: [Resolvido]erro em tempo de execucao '3021': nenhum registro atual - nao acho

    Mensagem  infformax Sab 20 Dez - 13:22

    bom dia amigo noob

    perfeito, resolveu, fechou.

    muito obrigado mesmo

      Data/hora atual: Sex 16 Abr - 22:14