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

Pessoal primeiramente bom dia

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

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

Obrigado Ivan

Irei tentar este codigo e retornarei com a resposta!

Muito obrigado pela ajuda

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

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.

A mensagem número dois deste tópico resolve um dos problemas.

Sobre o botão editar, veja se um destes links ajuda sobre o assunto desvinculado
https://www.maximoaccess.com/t12754-resolvidoformulario-desvinculado
https://www.maximoaccess.com/t5476-resolvidoformulario-desvinculado
https://www.maximoaccess.com/t16153-formulario-desvinculado
https://www.maximoaccess.com/t19241-formulario-desvinculado
https://www.maximoaccess.com/t35917-formulario-desvinculado-logica-de-programacao-para-salvar-editar-e-excluir-os-registros

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

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

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

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.