locked
Erro ao buscar arq foto concatenado com campo matricula RRS feed

  • 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:00
    Moderador

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:00
    Moderador
  • 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