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

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

up

up

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

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

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

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

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

vou testar a noite

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

obrigado

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.

[]'s

Noob

o estranho que com outro campo funciona normal

mas beleza, vou testar e dou retorno

E então?

bom dia amigo noob

perfeito, resolveu, fechou.

muito obrigado mesmo