[Resolvido]erro em tempo de execuçao - 424

Ola Pessoal.
Estou melhorando meu banco de dados e nesta versão meu objetivo e tratamento de erros. Estou com dificuldades em um formulário e subformulario. Neste digito a referencia de um produto e se a tal referencia não existir, vem a mensagem de erro e volta ao campo dando condição ao usuário de digitar certo. Caso o produto exista, faça o lançamento normalmente e caso já tenha sido digitado anteriormente, some 1 na quantidade.
O erro que vem ao executar o procedimento e erro em tempo de execução , erro 424. Fui em referencia e não encontrei o DAO 3.0 e nem conseguir colocar usando o procurar em ferramentas.
Se alguém tiver alguma dica por favor deixe aqui.
Obrigado.

Set frm = Forms!Pedidos![Subformulários de Pedidos].Form
Set rst = frm.RecordsetClone
Dim marcador As Control
Set marcador = Forms!Pedidos![Subformulários de Pedidos]![Número do Produto]
marcador = dtacli.Recordset.Bookmark
dtacli.Recordset.Index = "[Número do Produto]" 'Numero do Produto esta em uma Tabela vinculada !!!
If dtacli.Recordset.NoMatch Then
MsgBox "Produto não localizado ! ", vbExclamation, "Digite novamente o Produto"
dtacli.Recordset.Bookmark = marcador
Else
' A linha a seguir analisa se este produto ja foi digitado anteriormente !!!

Me.RecordsetClone.FindFirst _
"[Número do Produto] = '" & Me![Número do Produto] & "'"
If Me.RecordsetClone.NoMatch Then
'DoCmd.GoToRecord , , acNewRec 'nao pode
'Ok, não encontrou
Else
'Encontrou igual, já existe! Entao some mais 1 a quantidade
'Cancel = True
DoCmd.Beep
frm.Undo

frm.Bookmark = rst.Bookmark
rst.Edit
rst!Quantidade = rst!Quantidade + 1
rst.Update
DoCmd.GoToRecord , , acNewRec

End If
End If

Set rst = Nothing
End Sub

PS. O erro acontece em >> marcador = dtacli.Recordset.Bookmark

Ola Noberto

Obrigado pelo retorno.

Li o post no link.

Abri o modulo, ferramentas, referencia.

Procurei DAO 3.6 e marquei. Quando dei OK veio mensagem "Nome em conflito com modulo, projeto ou ... existente"

Tenho disponiveis sem marcar o DAO 3.51 e 3.6 ambos ao serem marcados, vem esta mensagem.

Quando marco os dois, vem a mensagem "Erro ao carregar DLL"

Ainda na procura.

Fiz isto.



Ao tentar marcar a DAO 3.6 vem a mensagem "Nome em conflito com modulo, projeto ou ... existente"
Ao tentar marcar a DAO 3.51 vem esta mensagem "Erro ao carregar DLL"
Nenhuma esta marcada atualmente pois o sistema nao aceita gerando estas mensagens.

Cheguei a pensar que o erro esta na ordem ou sintaxe que anuncio os controles, variaveis ou recordset.

Ainda na procura.

Ola Noberto.

A DAO 3.6 e DAO 3.51 constam na lista porem vem mensagem de erro quando marco a caixa de qualquer uma.
Atualmente ambas estao la porem desmarcadas.

Obrigado.

Ola Noberto.

Estou resolvendo por outro caminho.
Agradeço a atenção e dou como resolvido

Obrigado.

Resolvido