[Resolvido]Erro 13 tipo incompativel.

Erro 13 tipo incompatível.

Dim rs As Object
Me.LocalFoto = DLookup("localFOTO", "temp_tblPDFs", "localfoto='" & Me!Lista0.Column(5) & "'")
Set rs = Me.Recordset.Clone
rs.FindFirst "[IDArquivo] = " & Str(Nz(Me![Lista0], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Ola amigos oque poderia mudar para dar certo.

Kaynan

rs.FindFirst "]IDArquivo] = " & Str(Nz(Me![Lista0], 0))

Está procurando um código e comparando com string? Isso para mim não está correto.

Lista0

Com tanto tempo de casa, ainda não aprendeu nomear os controles?

Se essa lista tivesse um nome, eu poderia saber mais sobre esse controle.

Sempre que usar:

Set rs = Me.Recordset.Clone

A primeira coisa a ser fazer, ao se pesquisar no recordset é:

rs.MoveFirst

Assim o ponteiro do Access fica apontando para o primeiro registro da tabela.
iniciando dali a sua pesquisa.

{ }'s

Balem

Boa tarde noob,bom te ver de novo, é o seguinte eu quero que ao selecionar o arquivo na list do formulario PDF apareça a imagem cadastrada no formulario CadRevista.Se puder dar uma olhada.

dropbox.com/s/b09jldzquwhlxrr/Revistas.rar?dl=0

Bom ver que continua aqui Kaynan!

Ah! Meus bom tempos de Tex Willer, o Ranger chefe da nação Navarros.

Quanto ao teu aplicativo, explique melhor para eu poder entender o que pretende .

Faltou as imagens.

Aguardo...

Comecei a ler estas revistas era muito jovem,e hoje tenho um filho com 15 anos que adora ler.
Ao cadastrar a revista no form CadRevista eu coloco a imagem da capa da revista,e no formulario PDV quero ao selecionar a revista na list apareça essa imagem,que depois com duplo clic eu abro a revista em um programa que abre a extenção .cbr,quanto as imagens coloque qualquer uma que aqui depois eu coloco a imagem certa.
Abraço.

Kaynan

O campo IDArquivo da tabela temp_tblPDFs está vazio.

E no formulário PDF a caixa de texto também está vazia, por isso o erro nessa linha:


rs.FindFirst "[IDArquivo] = " & Str(Nz(Me![Lista0], 0))

e não grava na tabela.

Veja o que vai definir essa ID.

Esse IDArquivo e como numeração automatica,ao tentar consertar um erro coloquei como texto,mas mesmo assim não funcionou veja agora.

dropbox.com/s/b09jldzquwhlxrr/Revistas.rar?dl=0

Kaynan


1 - Acerte o caminho das pasta de imagem para o que vc usa.
2- utilize apenas a tblStatus.
   Os detalhes dos campos dessa tabela  você verifica
3- Utilize o botão status revista do form. PDF, para abrir o formulário pra colocar a foto, quando não tiver(registro novo)

Veja que a foto(imagem) no formulário PDF tem a propriedade origem de registro =  LocalFoto.
Cada vez que vc clica num registro da listbox , vai buscar  a foto que está definida no campo LocalFoto para exibir.

O resto é contigo    

Abraços

Perfeito Noob,só não to conseguindo é ao dar 2 cliques abrir a revista,sendo que no outro bd que tenho sem a imagem abre.

Veja se é isso, meu amigo

Veja a tabela tbl Status

Você deve acrescetar o caminho dos pdfs no campo LocalPDF

Examine os código da listBox.

Ola noob,te envie uma MP.

Feito a lida,obrigado noob por mais essa aula,por mais essa ajuda, não esqueço o tanto que ja me ajudou,quando passar essa pandemia vou na tua casa pra vc me pagar um churrasco e uma cervejada,kkkk.
Abraço fica com Deus.

Eita

Nessa hora sou abstêmio e vegetariano

Fica na Paz!

Boa sorte!