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


2 participantes

    no loop achar o ultimo registro que satisfaz o if

    avatar
    suchida
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 17/05/2013

    no loop achar o ultimo registro que satisfaz o if Empty no loop achar o ultimo registro que satisfaz o if

    Mensagem  suchida 12/8/2013, 20:01

    Boa tarde pessoal, recorro mais uma vez a este forum para pedir ajuda...

    tenho 3 tabelas: veiculos (chave id_veiculo), condutores (chave id_CONDUTOR) e seguros (possui id_condutor e id_veiculo)

    atraves de formularios, toda vez que for alterado o condutor no cadastro do veiculo preciso que inclua na tabela de seguros um novo registro com a informação do novo condutor, porem, existem alguns dados do ultimo registro que deve ser copiado...

    para isso crie algumas variaveis: novoconcutor, velhocondutor, id_placa

    no evento AfterUpdate do campo 'condutor' carrego a variavel velhocondutor

    no evento click do botão salvar carrego a variavel tb campo 'condutor'


    - criei uma sub que vai fazer conexoes com as tabelas e fazer loop com if

    achei o registro da placa alterada e fiz inclusão de resgistro somente quando o condutor for diferente, mas não consegui achar tb o ultimo registro da tabela seguros


    espero que alguem me ajude...


    um grande abraço

    sidney


    do Until Rs.EOF
    If Rs!id_placa = lngplaca And Rs!id_condutor <> lngoldcondutor Then
    placa = Rs!placa
    DoCmd.RunSQL ("INSERT INTO tbl_veiculo_historico (id_placa,data,condutor,situacao) VALUES (' " & lngplaca & " ',Now(),' " & lngoldcondutor & " ','Data Final')") 'texto no sql deve ser entre aspas simples
    DoCmd.RunSQL ("INSERT INTO tbl_veiculo_historico (id_placa,data,condutor,situacao) VALUES (' " & lngplaca & " ',Now(),' " & lngcondutor & " ','Data Inicial')")
    ' DoCmd.RunSQL ("insert into tbl_seguros (id_placa2,dtinicio,id_condutor,endosso,situacao) values (' " & lngplaca & " ',now(),' " & lngcondutor & " ',true,'5')")
    Do Until rs2.EOF
    If rs2!id_condutor = lngoldcondutor Then
    condutor_antigo = rs2!nome
    ElseIf rs2!id_condutor = lngcondutor Then
    condutor = rs2!nome
    End If
    rs2.MoveNext
    Loop
    Call EnviarEmail

    Do Until rs3.EOF
    If rs3!id_placa2 = lngplaca Then
    item = rs3!item
    apolice = rs3!apolice
    End If
    rs3.MoveNext
    Loop

    End If
    Rs.MoveNext

    Loop

    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    no loop achar o ultimo registro que satisfaz o if Empty Re: no loop achar o ultimo registro que satisfaz o if

    Mensagem  Cláudio Más 15/8/2013, 17:14

    Está tentando encontrar o registro no último loop (Do Until rs3.EOF)?

    Nesse caso, como está inicializando a variável rs3?

      Data/hora atual: 27/4/2024, 15:29