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]Editar registro através do formulário

    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 08/01/2017

    [Resolvido]Editar registro através do formulário Empty [Resolvido]Editar registro através do formulário

    Mensagem  Edgar Massa 16/9/2019, 21:58

    Prezados

    Boa tarde

    Estou com um problema para editar registros em uma tabela através de um formulário.
    Eu clico no registro que é exibido num listbox, ao clicar no botão editar, ele abri um form pequeno com os dados em novos campos e um combobox em que eu clico numa informação e atualiza o ID dessa informação num textbox, até ai show, mais na hora de atualiza o ID que é uma FK e o dado de outro textbox, ele não edita, e quando edita vai errado.

    segue o código

    Dim db As DAO.Database
    Dim tb As DAO.Recordset

    Set db = CurrentDb()
    Set tb = db.OpenRecordset("TB_ESTRUTURA", dbOpenDynaset)

    tb.Edit

    tb![ID Area] = [Forms]![FRM_AREA_ESTRUTURA_EDITAR]![txt_ID_Area]
    tb![Estrutura] = [Forms]![FRM_AREA_ESTRUTURA_EDITAR]![txt_Estrutura]

    tb.Update

    tb.Close
    Set tb = Nothing

    db.Close
    Set db = Nothing

    DoCmd.Close
    Edgar Massa
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 84
    Registrado : 08/01/2017

    [Resolvido]Editar registro através do formulário Empty Re: [Resolvido]Editar registro através do formulário

    Mensagem  Edgar Massa 17/9/2019, 21:51

    Consegui utilizando SQL via VBA!!!

    Dim strSQL As String
    strSQL = "UPDATE TB_ESTRUTURA " & _
    "SET TB_ESTRUTURA.[ID Area] = " & [Forms]![FRM_AREA_ESTRUTURA_EDITAR]![txt_ID_Area] & "," & _
    "TB_ESTRUTURA.Estrutura = '" & [Forms]![FRM_AREA_ESTRUTURA_EDITAR]![txt_Estrutura] & "'" & _
    "WHERE (((TB_ESTRUTURA.[ID Estrutura]) = " & [Forms]![FRM_AREA_ESTRUTURA_EDITAR]![txt_ID_Estrutura] & "));"

    CurrentDb.Execute strSQL
    DoCmd.Close

      Data/hora atual: 6/5/2021, 10:54