MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Erro na função Dloolup com dois campos.

    Compartilhe

    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 470
    Registrado : 22/12/2009

    [Resolvido]Erro na função Dloolup com dois campos.

    Mensagem  wsenna em Sex 01 Maio 2015, 01:35

    Olá Feras de plantão, boa noite.

    Possuo um subformulário que entre outros campos existem dois a saber: Resumo (Texto) e Caixa (Numérico)

    No campo Caixa apliquei um procedimento antes de atualizar que faz uma busca na tabela para verificar se já existe um Resumo para a mesma Caixa e a parte co código é:

    If IsNull(DLookup("Localização", "tblLocalização Consulta", "([Localização] = " & Forms![frmEntradas]![frmEntradasSub]![Localização] & "")) And DLookup("Resumo", _ "tblLocalização Consulta", "([Resumo] = '" & Forms![frmEntradas]![frmEntradasSub]![Resumo] & "')") Then

    Contudo recebo a seguinte mensagem:

    [img][Você precisa estar registrado e conectado para ver esta imagem.][/img]

    A pergunta que não quer calar: Onde está o erro?

    Abraços, WSenna

    Ricardo.Correa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 16/04/2014

    Re: [Resolvido]Erro na função Dloolup com dois campos.

    Mensagem  Ricardo.Correa em Sex 01 Maio 2015, 15:31

    Pelo que vejo, a variável da localização não é tipo texto, experimente tirar as aspas simples.

    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 470
    Registrado : 22/12/2009

    Re: [Resolvido]Erro na função Dloolup com dois campos.

    Mensagem  wsenna em Sab 02 Maio 2015, 02:32

    Olá Ricardo, boa noite.

    Amigão, não funcionou.

    De qualquer forma, agradeço a força e tenha um ótimo final de semana.

    O X do problema é que tenho de arranjar uma forma de impedir que o mesmo resumo (tipo Texto) seja cadastrado num novo registro com o mesmo número da Localização (tipo número).

    Abraços, WSenna

    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 470
    Registrado : 22/12/2009

    Re: [Resolvido]Erro na função Dloolup com dois campos.

    Mensagem  wsenna em Sab 02 Maio 2015, 16:20

    Olá Ricardo, boa tarde.

    Consegui resolver com o código abaixo:

    Private Sub Localização_BeforeUpdate(Cancel As Integer)
    On Error GoTo TrataErro

    Dim DB As DAO.Database
    Dim rs As DAO.Recordset

    ' Testa se a Caixa já existe na tabela

    If IsNull(DLookup("[Localização]", "tblLocalização", "[Localização] = " & Localização & " And Resumo = '" & Resumo & "'")) Then
    GoTo Saida
    End If
    ' Dá opção de alterar dados
    If MsgBox("Já existe uma Caixa com o número " & Me.Localização & " para este Resumo. " & Chr(13) & "Você deseja visualizar o registro? ", vbExclamation + vbYesNo, " Atenção") = vbNo Then

    Me.Undo
    GoTo Saida

    End If

    'Abre o registro já existente
    Set rs = Me.RecordsetClone
    rs.FindFirst ("[Localização] = " & Localização & " And Resumo = '" & Resumo & "'")
    Me.Undo
    Me.Bookmark = rs.Bookmark
    Set rs = Nothing

    Saida:
    Exit Sub

    TrataErro:
    MsgBox "Form_frmEntradasSub - Localização_BeforeUpdate" & vbCrLf & err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(err.Number)
    #If DESENV Then
    Stop
    Resume
    #End If
    Resume Saida

    End Sub

    O único problema é que não está eliminando o registro (formulário contínuo) através do Me.Undo grifado em vermelho.

    Abraços, WSenna

    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 470
    Registrado : 22/12/2009

    Re: [Resolvido]Erro na função Dloolup com dois campos.

    Mensagem  wsenna em Seg 04 Maio 2015, 14:26

    Olá Feras de plantão, bom dia.

    Este post foi devidamente resolvido com a ajuda do Amigão Assis.

    [Você precisa estar registrado e conectado para ver este link.]

    Abraços, WSenna

      Data/hora atual: Seg 05 Dez 2016, 04:22