[Resolvido]Imprimir Recibo

Como faço para imprimir só o registro que está no formulário.
Quando existe mais de um registro na tabela com o código nº 1 imprimi todos.

Código que uso:

Private Sub Comando33_Click()
If Not IsNull(Me.bytParcela) Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim Filtro As String
Filtro = "[codCliente] = " & Str(Me.lngNumContrato) & " And [bytParcela] = " & Str(Me.bytParcela)
If MsgBox("Deseja Visualizar ou Imprimir?" _
& vbCrLf & vbCrLf & "SIM - para Visualizar" _
& vbCrLf & vbCrLf & "NÃO - para Imprimir.", vbYesNo + vbQuestion, "Confirmação") = vbYes Then

DoCmd.OpenReport "relReciboPago", acViewPreview, , Filtro

Else

DoCmd.OpenReport "relReciboPago", acViewNormal, , Filtro

End If
End If
End Sub

Opa!

Tem certeza que esse filtro está funcionando? Pq vc não cria uma consulta com os dados do recibo e coloca como critério os mesmos do filtro e veja que resultado.

Se realmente estiver aparecendo dois registro, veja se existe algum outro campo na tbl que vc possa usar para diferenciar um do outro tipo um campo chave primária (ID).

Falow,

Aloizio teste este código e retorne para sabermos se deu certo...

Dim imprime, Nome As String
On Error GoTo 1
If IsNull(NomedoCampo) Then
MsgBox "O registro sem preenchimento!"
Me.NomeCampo.SetFocus
Else
Nome = Me.NomedoCampo
imprime = MsgBox("Confirma a impresso " & Chr(10) + Chr(13) & Nome, vbQuestion + vbYesNo, "Confirmação")
Select Case imprime
Case vbYes
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport "NomedoRelatorio", acNormal, , "[código] = Forms![Cliente]![CodCliente]"
Case vbNo
DoCmd.CancelEvent
End Select
End If

Exit Sub
End Sub

Meus amigos, minhas desculpas pela demora estava sem acesso.
Não consegui que imprimisse só um recibo.
Veja o arquivo em anexo.
Dê baixa nas duas parcelas nº 1, e veja.

http://mais.me/download/5T3XF51932012123952

Qual a versão desse banco ?

Access 2003.

Esse banco aqui está com formato desconhecido.

Tente compactar com .zip e anexe aqui.

Compactei

http://mais.me/download/YVAANQ1932012132629

Anexe direto no tópico, em baixo tem um botão para isso.

Bom dia a todos....

Com a permissão dos colegas, gostaria de dar uma opinião.

Ao analisar a tabCliente, notei que a chave primária não está em numeração automática. Para o mim, o correto seria numeração automática.

Não veio a tabvendas, onde eu acredito que deveria haver uma chave primaria num campo chamado( por exemplo) Codvenda.

O recibo de vendas, poderia ser gerado sem problema algum baseado nessa chave primaria ( e não no Codcliente), pois o mesmo cliente poderia fazer quantas compras quiser, parcelar quantas vezes achar necessário e não haveria problema algum.

Bastando apenas criar uma consulta simples com os devidos campos que deseja.

Penso eu que poderia ser feito assim.

Abraços e me desculpem a intromissão.

Silvio

Aluizo
Boa noite
Desculpem a todos
Lendo o tópico acho que o exemplo que coloco para analise vai resolver seu problema.

http://speedy.sh/Kftg4/Parcelas-S-P-P.rar

Meu amigo SPP, fiz este exemplo baseado no seu.
Veja que os códigos são idênticos.
Será que pode imprimir nesse tipo de formulário.
Coloquei número automático na tabela, como orientou nosso amigo silvio99, mas continua não imprimindo.

Abraços.

A todos bom dia...

Aluizo, eu fiz o download do que colega SPP deixou aqui no post e está virando certinho.
Fiz algumas alterações em termos de valores e está funcionando.
Creio mesmo que o grande problema pode estar em tuas tabelas e nos relacionamentos das mesmas ou você deve ter deixado passar algo desapercebido.

Se puder, limpe os dados autênticos, compacta o BD completo, com tudo mesmo, no formado *.zip e coloque ele aqui, para dar-mos uma boa olhada.

Grato.

Resolvido. Na orientação do Silvio99 em criar um campo de numeração automática. Fiz a chamada pelo número do campo numeração automática e deu certo.

Abraços e obrigados a todos deste Gigante Fórum.

Aluizo.

Só faltou clicar no botão Resolvido. Dessa vez eu mesmo clico.