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


    [Resolvido]pesquisar duplicata

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 578
    Registrado : 30/08/2010

    [Resolvido]pesquisar duplicata Empty [Resolvido]pesquisar duplicata

    Mensagem  NADIRONUNES 24/1/2012, 13:15

    On Error GoTo TrataErro
    Dim db As DAO.Database
    Dim RS As DAO.Recordset
    Dim dup
    dup = Dupl
    ' Testa se o nome já existe na tabela
    If IsNull(DLookup("Duplicata", "duplicatas", "([Duplicata] = '" & Dupl & "')")) Then
    GoTo SAIDA
    End If
    ' Dá opção de alterar dados
    If MsgBox("A Duplicata Informada " & UCase(Me.Dupl) & " já está cadastro, Deseja visualizá-lo?", vbExclamation + vbYesNo, "Duplicação...") = vbNo Then
    ' DoCmd.RunCommand acCmdUndo
    ' me.empregado.SetFocus
    'Cancel = True
    GoTo SAIDA
    End If
    'Abre o registro já existente
    Set RS = Me.RecordsetClone
    RS.FindFirst "duplicata = '" & dup & "'"
    Me.Undo
    Me.Bookmark = RS.Bookmark
    Set RS = Nothing
    SAIDA:
    Exit Sub
    TrataErro:
    'MsgBox "NF - PNF_BeforeUpdate" & vbCrLf & Err.Description, vbExclamation + vbOKOnly, "Erro: " & CStr(Err.Number)
    #If desenv Then
    Stop
    Resume
    #End If
    Resume SAIDA
    Me.Caption = "Fornecedor.:" & [Historico] & " - Numero da Dupicata.: " & [Dupl] & ""

    End Sub

    uso essa funcao pra buscar nota fiscal ja lancada mas com duplicatas nao ta buscando
    o formanto na tabela fica assim 123456-1
    avatar
    Convidad
    Convidado


    [Resolvido]pesquisar duplicata Empty Re: [Resolvido]pesquisar duplicata

    Mensagem  Convidad 24/1/2012, 15:11

    Olá Nadir
    o formanto na tabela fica assim 123456-1
    Este formato está gravado mesmo na tabela ou só é exibido no formulário
    O número 1 é um número verificador, ele teria relevância na pesquisa?
    Se não, poderá usar somente a primeira parte (123456) para pesquisar.
    Ou ainda, pode ser que o campo não esteja nulo na tabela.
    Experimente trocar a linha:
    Código:

    If IsNull(DLookup("Duplicata", "duplicatas", "([Duplicata] = '" & Dupl & "')")) Then

    Para:
    If Dcount("*", "duplicatas", "[Duplicata] = '" & Dupl & "'") = 0 then

    Abraços

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 578
    Registrado : 30/08/2010

    [Resolvido]pesquisar duplicata Empty Re: [Resolvido]pesquisar duplicata

    Mensagem  NADIRONUNES 24/1/2012, 15:35

    nao funcionou a tabela no formato do campo eu coloquei assim 000000-0
    e eu tenho vamos falar 3 duplicatas da mesma nota
    123456-1
    123456-2
    123456-3

    e eu tenho o campo dupl onde eu jogo o numero da duplicata e onde ta esse codigo ai emcima
    avatar
    Convidad
    Convidado


    [Resolvido]pesquisar duplicata Empty Re: [Resolvido]pesquisar duplicata

    Mensagem  Convidad 24/1/2012, 15:58

    Veja se os nomes da tabela e campos estão corretos, eu mesmo me confundo ao enviar o exemplo.

    Editando:

    Se são notas promissórias de uma mesma nota fiscal e eu não tendo idéia da tua pretensão,
    pergunto
    Porque não faz um formulário principal para as notas fiscais com um subformlário já mostrando as duplicatas relacionadas a essa notas?

    Abraços

    Conteúdo patrocinado


    [Resolvido]pesquisar duplicata Empty Re: [Resolvido]pesquisar duplicata

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 23:59