Usuário com melhor resposta
Erro ao buscar arq foto concatenado com campo matricula

Pergunta
-
Tenho um mdb que busca determinada foto (arquivo salvo com o mesmo número do campo matrícula, com a extensão .jpg) quando se digita o número da matrícula (campo numérico).
Pela lógica está tudo correto, mas o Access insiste dizer que está com erro e arremeter para o depurado.
Poderiam alguém me apontar o meu erro?
Private Sub Matrícula_Enter() 'Variáveis Dim rst As New ADODB.Recordset Dim strSQL As String Dim caminho As String Dim extensao As String caminho = "C:\FOTOS" extensao = ".jpg" If IsNull(txtCodigo) = True Then MsgBox "Preencha o campo" Exit Sub End If strSQL = "SELECT * FROM FichaQualificativa WHERE Matricula =" & txtCodigo 'Abrir o recordset usando o comando Open rst.Open strSQL, CurrentProject.Connection, 3, 3 If rst.EOF Then MsgBox "Não foi encontrada esta Matricula" Set rst = Nothing Exit Sub End If FOTO.Picture = caminho & rst!FOTO & extensao Set rst = Nothing End Sub
segunda-feira, 10 de agosto de 2009 19:44
Respostas
-
Mas qual mensagem de erro aparece?
Se não aparece nenhuma, pode ter um ponto de interrupção invisível. Clique em Depurar > remover todos os pontos de interrupção e salve novamente.
Outra coisa: a matrícula é numérica ou alfa-numéica? Se for alfa-numérica, tem que usar a sintaxe a seguir:
strSQL = "SELECT * FROM FichaQualificativa WHERE Matricula ='" & txtCodigo & "'"
Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br- Marcado como Resposta Darren Fuglini sábado, 15 de agosto de 2009 10:35
- Não Marcado como Resposta Darren Fuglini sábado, 15 de agosto de 2009 11:54
- Marcado como Resposta Darren Fuglini sábado, 15 de agosto de 2009 11:58
sábado, 15 de agosto de 2009 04:00Moderador
Todas as Respostas
-
Está faltando uma barra no caminho:
caminho = "C:\FOTOS\"
abs!quarta-feira, 12 de agosto de 2009 22:21 -
Ainda o Access insiste em me mandar para o depurador!
rst.Open strSQL, CurrentProject.Connection, 3, 3 -----> assinlando esta linha em amarelo
Mais uma vez insisto pois ao colar o código me esqueci realmente da barra, agradeço ao Paulo Kazumiti Todoroki (wlw).To quase indo por outro caminho, mas gostaria de saber realmente se têm erro nesse código.
T+
quinta-feira, 13 de agosto de 2009 23:08 -
Mas qual mensagem de erro aparece?
Se não aparece nenhuma, pode ter um ponto de interrupção invisível. Clique em Depurar > remover todos os pontos de interrupção e salve novamente.
Outra coisa: a matrícula é numérica ou alfa-numéica? Se for alfa-numérica, tem que usar a sintaxe a seguir:
strSQL = "SELECT * FROM FichaQualificativa WHERE Matricula ='" & txtCodigo & "'"
Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br- Marcado como Resposta Darren Fuglini sábado, 15 de agosto de 2009 10:35
- Não Marcado como Resposta Darren Fuglini sábado, 15 de agosto de 2009 11:54
- Marcado como Resposta Darren Fuglini sábado, 15 de agosto de 2009 11:58
sábado, 15 de agosto de 2009 04:00Moderador -
Luiz Claudio, wlw mesmo!
O que acontecia era problema com ponto de interrupção invisível. Como você descreveu.
Agora está funcionando.
______________________________________________________
Darren Fuglini - "Somos todos responsáveis por tudo e por todos, e, eu mais ainda do que todos!"sábado, 15 de agosto de 2009 11:58