MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

3 participantes

    [Resolvido]Suprimir o erro de registro não encontrado

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 944
    Registrado : 09/11/2012

    [Resolvido]Suprimir o erro de registro não encontrado Empty [Resolvido]Suprimir o erro de registro não encontrado

    Mensagem  =>Nois Sex 24 Set - 11:26

    utilizo o exemplo abaixo para ter opção de pegar mais de uma informação das colunas no Dlookup,


    Private Sub Comando522_Click()

    Dim Campos As Variant
    Campos = Split(DLookup("[Desenho_ipdp] & ';' & [Atualizar]", "tbl_IPDP", "Desenho_ipdp=" & txtdesenho), ";")

    MsgBox "Resultado: " & Campos(0) & " " & Campos(1)

    End Sub

    gostaria de sugestões para suprimir o erro para registro não encontrado, ou seja quero que minha msgbox retorne Zero ou vazio como resultado

    ja usei NZ... on error resume next...


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Suprimir o erro de registro não encontrado Empty Re: [Resolvido]Suprimir o erro de registro não encontrado

    Mensagem  Alexandre Fim Sex 24 Set - 12:34

    Olá,

    Substitua o código atual por este:

    Código:


    On Error GoTo trata_erro

    Dim sSQL        As String
    Dim rs          As DAO.Recordset
    Dim sResult     As String

        sResult = "Resultado: "
        
        sSQL = Empty
        sSQL = sSQL & " SELECT Desenho_ipdp, Atualizar FROM tbl_IPDP"
        sSQL = sSQL & " WHERE  Desenho_ipdp = " & txtdesenho & ""
        Set rs = CurrentDb.OpenRecordset(sSQL)
        
        If Not rs.EOF Then
            If Not IsNull(rs("Desenho_ipdp")) Then
                sResult = sResult & " Desenho: " & rs("Desenho_ipdp")
            End If
                
            If Not IsNull(rs("Atualizar")) Then
                sResult = sResult & " Atualizar: " & rs("Atualizar")
            End If
        Else
            sResult = "Registro não localizado."
        End If
        
        MsgBox "" & sResult & ""

        rs.Close
        Set rs = Nothing
        
        Exit Sub

    trata_erro:
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
        Exit Sub

    End Sub



    VEja se é isso que precisa.

    Boa sorte

    []'s

    FIM


    =>Nois
    =>Nois
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 944
    Registrado : 09/11/2012

    [Resolvido]Suprimir o erro de registro não encontrado Empty Re: [Resolvido]Suprimir o erro de registro não encontrado

    Mensagem  =>Nois Sex 24 Set - 13:54

    What a Face É bem elaborada nuu...

    funciona muito bem, vou usar!

    obrigado pela força cheers


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Suprimir o erro de registro não encontrado Empty Re: [Resolvido]Suprimir o erro de registro não encontrado

    Mensagem  Alexandre Fim Sex 24 Set - 14:36

    É =>Nois...rss
    VAleu...o fórum agradece...
    Abraços
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 21/11/2016

    [Resolvido]Suprimir o erro de registro não encontrado Empty Re: [Resolvido]Suprimir o erro de registro não encontrado

    Mensagem  DamascenoJr. Sex 24 Set - 20:24

    Acrescentando, com dlookup seria

    Código:
    Private Sub Comando522_Click()

    Dim Campos As Variant

    Campos = Nz(DLookup("[Desenho_ipdp] & ';' & [Atualizar]", "tbl_IPDP", "Desenho_ipdp=" & txtdesenho), "")

    if Campos = "" then
       MsgBox 0
    else
       Campos = Split(Campos, ";")
       MsgBox "Resultado: " & Campos(0) & " " & Campos(1)
    End if

    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

      Data/hora atual: Sab 1 Out - 11:36