[Resolvido]Problemas ao salvar registros no formulário

Oi pessoal!

É o seguinte... eu tenho um formulário onde insiro dados, eu criei um botão salvar para salvá-los. Só que eu coloquei alguns códigos para que alguns campos sejam obrigatórios antes de salvar (Não fiz isso como "campo obrigatório" porque depois que se clica na opção não dá pra sair até digitar alguma coisa).

Na hora de salvar, os códigos funcionam perfeitamente. Só que eu tenho uma caixa de listagem que contém os registros já salvos e que eu posso selecionar e o formulário me retorna os valores correspondentes.

Já consegui implementar o código para que se eu alterar alguma coisa ele pergunte se eu desejo salvar antes de atualizar. Só que eu queria que o formulário só atualizasse depois que aqueles campos obrigatórios fossem preenchidos. Só que ele atualiza de qualquer forma.

Desde já agradeço

Os códigos:



Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
strMsg = "Foram efetuadas alterações"
strMsg = strMsg & "... Deseja salvar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Salvar?") = vbYes Then
'do nothing
Call Salvar_Click
'DoCmd.GoToRecord , , acPrevious


Else
DoCmd.RunCommand acCmdUndo

End If

End Sub


Private Sub Form_Current()

Pesquisa.Requery
Me!Pesquisa = Me!ID


Private Sub Pesquisa_AfterUpdate()
' Encontrar o registro que coincide com o controle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Pesquisa], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub


Private Sub Salvar_Click()
On Error GoTo Err_Salvar_Click

If IsNull(Poço) Then
MsgBox "Digite o Poço", vbOKOnly + vbInformation, "..."

ElseIf IsNull(Mês) Then
MsgBox "Digite o Parâmetro", vbOKOnly + vbInformation, "..."

ElseIf IsNull(Ano) Then
MsgBox "Digite o Valor", vbOKOnly + vbInformation, "..."

ElseIf IsNull(UpTime) Then
MsgBox "Digite a Data", vbOKOnly + vbInformation, "..."

ElseIf IsNull(Pressão) Then
MsgBox "Digite a Campanha", vbOKOnly + vbInformation, "..."


ElseIf MsgBox("Tem certeza que deseja salvar?", vbYesNo, "CONFIRMAÇÃO") = vbYes Then

DoCmd.RunCommand acCmdSaveRecord
MsgBox "Dados salvos com sucesso.", vbOKOnly, "CONFIRMAÇÃO"
Exit Sub
End If


Exit_Salvar_Click:
Exit Sub

Err_Salvar_Click:
MsgBox Err.Description
Resume Exit_Salvar_Click

End Sub

Amigão se o seu form é vinculado a uma tabela... Ao digitar os dados são salvos automaticamente, não havendo nem a necessidade de salvar...

então ao ir preenchendo os campos ele salva automaticamente..


Explique melhor...

Eu não quero que salve automaticamente não. O problema é esse.

Eu quero que só salve quando eu disser que é pra salvar. Que ele pergunte e eu diga sim.

Isso acontece se eu clicar no botão salvar. E ele só deixa salvar se todos os campos obrigatórios estiverem preenchidos.

Mas na hora de atualizar pra um registro salvo ele pergunta se eu quero salvar, se eu responder não eele descarta. Mas se eu responder sim ele só deveria deixar eu salvar se todos os campos obrigatórios estivessem preenchidos(como acontece quando clico no botão salvar). Mas isso não acontece justamente porque ele salva automaticamente.

Eu chamo a função "salvar_click" ela roda mas logo em seguida o form atualiza para o registro que escolhi na caixa de seleção. Dessa forma salvando automaticamente um registro com campos obrigatórios em branco.

infelizmente nao fazemos somente o que queremos... quando digita o access ja emite um numero no campo autonumeração...

no caso de nao salvar, pode excluir o registro mas o numero fica perdido..

eu fiz para uma pessoa aqui do fórum certa vez.. mas utilizando um campo numero como ID e numeração automática por código...

se ele desistisse , comando para exlcuir o registro..


Para fazer o que voce quer com perfeição somente com forms desvinculados!

Saudações

Amigão, eu prefiro usar formulários desvinculados e salvar o registro via vba, usando Recordset ou sql. Com forms vinculados, é como o colega disse acima, quando você começa a digitar, um número na chave já é reservado para o registro. Caso desista de salvá-lo, esse número se perde. Uma forma simples de salvar o registro, pode ser você desvincular o formulário e os campos e no botão colocar assim:

If IsNull(Me.NomeCampoTal) Or Me.NomeCampoTal.Value = "" Then
MsgBox "CampoTal é de preenchimento obrigatório", , ""
ElseIf IsNull(Me.NomeOutroCampo) Or Me.NomeOutroCampo.Value = "" Then
MsgBox "OutroCampo é de preenchimento obrigatório", , ""
Else
CurrentDb.Execute "INSERT INTO NomeDaTabela(NomeCampo1,NomeCampo2,NomeCampo3) VALUES('" & Me.NomeCampo1 & "', "' & Me.NomeCampo2 & "', '" & Me.NomeCampo3 & "')"
End If

Dessa forma, só queima número na chave primária se ocorrer algum erro. Recomendo testar isso, caso queira, em uma cópia do banco. Se der tudo certo, aplica no original.

Obrigado Harysohn e Criquio!

Eu vou testar agora esse código Criquio, se funcionar eu digo aqui.

Obrigado!

***Mas observe que os campos tem que estarem desacoplados

Como não retornou, o tópico passa a resolvido. Qualquer coisa reabra, por favor.