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


    Botão salvar com condição de verificação

    avatar
    juliodv1986
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 22/11/2015

    Botão salvar com condição de verificação Empty Botão salvar com condição de verificação

    Mensagem  juliodv1986 em 6/10/2019, 14:55

    Pessoal primeiramente bom dia Smile

    Estou fazendo um código para salvar os dados de um formularios em uma tabela.

    O codigo em si funcionou perfeitamente porem o que esta acontecendo é que se o registro já existe na tabela ele salva duplicado.

    Gostaria de antes de salvar o registro na tabela ele verifica se já exite atraves de 2 campos chave caso sim ele salvaria por cima , caso não exista ele salva como uma nova linha.


    campos chave para verificação n_desenvolvimento E seq


    segue abaixo meu código.

    Código:
    Private Sub Comando40_Click()

    Dim DB As DAO.Database
    Dim ws As DAO.Workspace
    Dim rs As DAO.Recordset

    If MsgBox(" " + vbCrLf + "Deseja gravar o registro?" + vbCrLf + " ", vbYesNo, "SISTEMA DE CADASTRO DE DESENVOLVIMENTO") = vbYes Then

    Set ws = DBEngine.Workspaces(0)

    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("desenvolvimento", dbOpenTable)

    rs.AddNew

    rs("n_desenvolvimento") = Me!Ndesenvolvimento
    rs("seq") = Me!seq
    rs("responsavel") = Me!cboresponsavel
    rs("status_desenvolvimento") = Me!cbostatusgeral
    rs("cliente") = Me!s_clientes
    rs("contato") = Me!s_contato
    rs("vendedor") = Me!s_vendedor
    rs("observacoes") = Me!observação
    'rs("cotacao") = Me!cotacao
    rs("dt_inicio") = Me!inicio
    rs("dt_termino") = Me!finalizado
    rs("tbaplicação") = Me!aplicação


    rs.Update
    rs.Close
    Set rs = Nothing
    Set DB = Nothing

    MsgBox " " + vbCrLf + "Registo gravado com sucesso." + vbCrLf + " OS liberada para produção", vbInformation, "Concluído"

    DoCmd.Close
    Else: DoCmd.Close
    Exit Sub
    End If
    End Sub

    Muito obrigado

    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    Botão salvar com condição de verificação Empty Re: Botão salvar com condição de verificação

    Mensagem  IvanJr. em 6/10/2019, 16:26

    Código:
    Private Sub Comando40_Click()

    Dim DB As DAO.Database
    Dim rs As DAO.Recordset

    If MsgBox(" " + vbCrLf + "Deseja gravar o registro?" + vbCrLf + " ", vbYesNo, "SISTEMA DE CADASTRO DE DESENVOLVIMENTO") = vbYes Then

    if dcount("*", "desenvolvimento", "Campo1NaTabela=InfoCampoNoFormulario And Campo2NaTabela=InfoCampoNoFormulario")>1 then

    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("select * from desenvolvimento where Campo1NaTabela=InfoCampoNoFormulario And Campo2NaTabela=InfoCampoNoFormulario;", dbOpenTable)
    rs.Edit

    else

    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("desenvolvimento", dbOpenTable)
    rs.AddNew

    end if

    rs("n_desenvolvimento") = Me!Ndesenvolvimento
    rs("seq") = Me!seq
    rs("responsavel") = Me!cboresponsavel
    rs("status_desenvolvimento") = Me!cbostatusgeral
    rs("cliente") = Me!s_clientes
    rs("contato") = Me!s_contato
    rs("vendedor") = Me!s_vendedor
    rs("observacoes") = Me!observação
    'rs("cotacao") = Me!cotacao
    rs("dt_inicio") = Me!inicio
    rs("dt_termino") = Me!finalizado
    rs("tbaplicação") = Me!aplicação

    rs.Update
    rs.Close
    Set rs = Nothing
    Set DB = Nothing

    MsgBox " " + vbCrLf + "Registo gravado com sucesso." + vbCrLf + " OS liberada para produção", vbInformation, "Concluído"

    End If

    DoCmd.Close

    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.
    avatar
    juliodv1986
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 22/11/2015

    Botão salvar com condição de verificação Empty Re: Botão salvar com condição de verificação

    Mensagem  juliodv1986 em 6/10/2019, 16:34

    Obrigado Ivan

    Irei tentar este codigo e retornarei com a resposta!

    Muito obrigado pela ajuda Smile

    avatar
    juliodv1986
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 22/11/2015

    Botão salvar com condição de verificação Empty Re: Botão salvar com condição de verificação

    Mensagem  juliodv1986 em 8/10/2019, 00:52

    Prezado Ivan boa noite.

    Estou enfrentando um outro problema no meu programa.

    Tenho a tela INICIO onde clicando no botão EDITAR deveria abrir meu formulario com os dados carregados porem estou trabalhando com formulario desacoplado .

    Não estou conseguindo fazer abrir o formulario com os dados carregados conforme a linha EDITAR clicada.

    A ideia é abrir esta nova tela com os dados carregados e fazer a alteração conforme necessário.

    Quando clicar em salvar apenas alterar na tabela os campos alterados, hoje meu código salva como um novo registro Sad

    Tenho 2 etapas que estou fritando a cabeça.

    Abrir o o formulario baseado no registro (tela inicio) botão Editar.

    Salvar formulario se for um novo formulario como um novo registro, caso exista o numero salvar apenas as atualizações.

    Em anexo meu banco de dados. colocar na pasta C:\Sistema

    Muitíssimo obrigado pela ajuda e suporte.
    Anexos
    Botão salvar com condição de verificação AttachmentSistema.zip
    Banco de dados anexo
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.2 Mb) Baixado 4 vez(es)
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    Botão salvar com condição de verificação Empty Re: Botão salvar com condição de verificação

    Mensagem  IvanJr. em 8/10/2019, 03:18



    .................................................................................
    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.
    avatar
    juliodv1986
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 22/11/2015

    Botão salvar com condição de verificação Empty Re: Botão salvar com condição de verificação

    Mensagem  juliodv1986 em 8/10/2019, 12:44

    Olá Ivan.


    Obrigado pelo links.

    Fiz este código conforme abaixo no botão Editar.

    O formulário esta abrindo porem não esta abrindo com os dados carregados conforme selecionado no formulario anterior.

    Código:
    Private Sub Comando30_Click()
    Dim db As DAO.Database, rs As DAO.Recordset, ws As DAO.Workspace, strSql As String
    Dim stDocName As String
    Dim stLinkCriteria As String
        
    Set ws = DBEngine.Workspaces(0)

    Set db = ws.OpenDatabase("C:\Sistema\engenharia_be.accdb", False, False)


    strSql = "SELECT * FROM desenvolvimento"

    Set rs = db.OpenRecordset(strSql)

    stDocName = "frm_cad_desenv"
        
    stLinkCriteria = "[n_desenvolvimento]=" & "'" & Me![n_desenv] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria


    rs.Close
    db.Close
    Set rs = Nothing
    Set db = Nothing
    End Sub
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 844
    Registrado : 13/12/2016

    Botão salvar com condição de verificação Empty Re: Botão salvar com condição de verificação

    Mensagem  Alexandre Fim em 8/10/2019, 13:23

    Bom dia Senhores,

    Apenas um pitaco!

    Julio,

    Quando vc trabalha com os campos não acoplados, é necessário que vc carregue um recordset com os dados dos campos do formulário em questão.


    Ex.:

    Dim rs as DAO.Recordset
    Dim db as DAO.Database


    set db = CurrentDB '(ou o database na rede)
    sSql = "SELECT campo1, campo2, campo3, campo4, campo5 from TB_DADOS where ID = "
    set rs = db.OpenRecordset(sSql, dbOpenSnapshot)

    if not rs.eof then
    me.Campo1doForm = rs("campo1").value
    me.Campo2doForm = rs("campo2").value
    me.Campo3doForm = rs("campo3").value
    me.Campo4doForm = rs("campo4").value
    me.Campo5doForm = rs("campo5").value
    else
    me.Campo1doForm = Empty
    me.Campo2doForm = Empty
    me.Campo3doForm = Empty
    me.Campo4doForm = Empty
    me.Campo5doForm = Empty
    end if


    rs.close
    set rs = nothing



    É isso!!!

    Espero ter ajudado.

    Boa sorte
















    .................................................................................
    "Aprender é a única coisa de que a mente nunca se cansa, nunca tem medo e nunca se arrepende." (Leonardo da Vinci)
    "O impossível existe até que alguém duvide dele e prove o contrário." (Albert Einstein)
    avatar
    juliodv1986
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 22/11/2015

    Botão salvar com condição de verificação Empty Re: Botão salvar com condição de verificação

    Mensagem  juliodv1986 em 8/10/2019, 23:35

    Boa noite Alexandre Fim

    Primeiramente muito obrigado pela ajuda.

    Tentei com seu código e mais algumas modificações porem sem sucesso.

    Sou leigo no assunto estou aprendendo encontrei alguns exemplos na internet e fui adicionando no seu código porem não consigo fazer rodar Sad

    Segue em anexo meu BD se puder me ajudar ficaria muito agradecido faz 2 dias que estou travado nesta tela

    Em anexo meu banco de dados. colocar na pasta C:\Sistema

    Muitíssimo obrigado pela ajuda e suporte.
    Anexos
    Botão salvar com condição de verificação AttachmentSistema.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (172 Kb) Baixado 3 vez(es)

    Conteúdo patrocinado

    Botão salvar com condição de verificação Empty Re: Botão salvar com condição de verificação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 18/11/2019, 07:22