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

    SEEK / FINDFIRST

    Compartilhe

    AKNT
    Novato
    Novato

    Respeito às Regras 100%

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

    SEEK / FINDFIRST

    Mensagem  AKNT em Dom 12 Jul 2015, 13:51

    Boa dia.
    Poderiam me ajudar a usar o FINDFIRST no lugar do SEEK em tabelas vinculadas.
    Utilizo o sequinte código:

    Obs: Campo DTE - Tipo data
    Campo RI - tipo texto
    Access 2010

    Private Sub Combinação114_BeforeUpdate(Cancel As Integer)
    Dim rsttab As DAO.Recordset
    Set Db = CurrentDb()
    Set rsttab = Db.OpenRecordset("Tbl Cad_Adol")
    rsttab.Index = "IND"
    rsttab.Seek "=", Me.DTE, Me.RI
    If rsttab.NoMatch Then
    Else
    MsgBox ("DADOS JA CADASTRADOS")
    Me.Undo
    End If
    End Sub

    Agradeço a possível ajuda.

    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8907
    Registrado : 04/11/2009

    Re: SEEK / FINDFIRST

    Mensagem  JPaulo em Seg 13 Jul 2015, 10:02

    Ola;

    Veja a comparação entre esses dois metodos e tente adaptar;

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



    .................................................................................
    Sucesso e Bons Estudos
    Success and Good Studies

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

      Data/hora atual: Sex 09 Dez 2016, 03:53