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

3 participantes

    [Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo.

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo. Empty [Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo.

    Mensagem  crysostomo 12/8/2021, 01:21

    Meus amigos tenho um formulário com IdProcedimentos, mas só está atualizando 1 campo sendo que tenho id igual espalhando. quero atualizar 1 campo que estão com esse Id
    Código:
    On Error GoTo Trato
    Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb
    Set rs = db.OpenRecordset("Select * from tbl_cad_rotinas Where IdProcedimentos=  " & Me.Texto21 & "")
       rs.Edit
       rs("Procedimento") = Me.Texto1.Value
    rs.Update

    MsgBox "Os procedimentos Da rotina foram atualizado com suesso", vbExclamation, "Serviço Social"
     Set rs = Nothing
    db.Close
       DoCmd.Close acForm, "formAtualizarProcedimentos"
       DoCmd.OpenForm "formAtualizarProcedimentos"
    Trato:
    End Sub


    Última edição por crysostomo em 12/8/2021, 02:05, editado 1 vez(es)


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    marcelo marques
    marcelo marques
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 836
    Registrado : 12/04/2016

    [Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo. Empty Re: [Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo.

    Mensagem  marcelo marques 12/8/2021, 01:38

    Boa noite vc só colocou um campos


    rs.Edit
    rs("Procedimento") = Me.Texto1.Value
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo. Empty Re: [Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo.

    Mensagem  crysostomo 12/8/2021, 01:42

    Mas é isso, só um campo.
    A tabela é cadastrada com vários Ids dos procedimentos, eu só quero atualizar  só um campo com todos os que estão com o Id específico.
    Preciso disso para fazer concertos


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3054
    Registrado : 22/11/2016

    [Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo. Empty Re: [Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo.

    Mensagem  DamascenoJr. 12/8/2021, 02:36

    Código:
    On Error GoTo Trato
    Dim db As Database

    Set db = CurrentDb

    call db.execute("update tbl_cad_rotinas set Procedimento = '" & me!Texto1.value & "' where IdProcedimentos=  " & Me.Texto21)

    MsgBox "Os procedimentos Da rotina foram atualizado com suesso", vbExclamation, "Serviço Social"

    set db = nothing

      DoCmd.Close acForm, "formAtualizarProcedimentos"
      DoCmd.OpenForm "formAtualizarProcedimentos"
    Trato:
    End Sub


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    crysostomo gosta desta mensagem

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1811
    Registrado : 23/01/2018

    [Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo. Empty Re: [Resolvido]Não está atualizando todos os campos com o mesmo id .Só está atualizando 1 campo.

    Mensagem  crysostomo 12/8/2021, 02:52

    Damasceno, funcionou, eu que acrescentei aqui sem querer, pensava que se fosse para vários campos o record já selecionava todos com o mesmo Id


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: 18/9/2021, 18:48