MaximoAccess

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

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
    avatar
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 21/12/2009

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

    Mensagem  wsenna em 30/4/2015, 18: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 : 8
    Registrado : 16/04/2014

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

    Mensagem  Ricardo.Correa em 1/5/2015, 08:31

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 21/12/2009

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

    Mensagem  wsenna em 1/5/2015, 19: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
    avatar
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 21/12/2009

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

    Mensagem  wsenna em 2/5/2015, 09: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
    avatar
    wsenna
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 21/12/2009

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

    Mensagem  wsenna em 4/5/2015, 07: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: 16/10/2017, 19:53