MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


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

    avatar
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  Edgar Massa em 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
    avatar
    Edgar Massa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    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 em 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: 12/12/2019, 00:42