[Resolvido]Formulario com Trava

Bom DIa!

Tenho um formulario que contem dados dos clientes e criei ao lado uma caixa de combinacao chamada ( finalizacao)
ao finalizar o usuario clica em salvar e automaticamente esses dados sao salvo em outra tabela ate aqui
tudo funciona perfeitamente, porem as vezes eles nao estao selecionando na caixa de combinacao um 'finalizacao'
e quando salva, ele salva em outra tabela em branco.

Pergunta é possivel colocar uma trava para que ele só finalize se ele colocar uma finalizacao?

Att
Lopes

Olá, não ficou muito claro tua necessidade, detalha mais especificamente o que precisas.

Estou anexando um print da tela...

Nesse formulario tenho varios dados dos clientes, mas só alguns que eu selecionei para salvar em uma tabela
que dei o nome de acionamento, ou seja um historico dos clientes que ja liguei.
E do lado direito do print tem um campo que o usuario seleciona para alguns daquelas finalizacões e clica
em salva para gravar o historico em outra.

Mas o que esta acontecendo que algumas vezes salva sem nenhuma finalizacao eu quero travar
para que so possam salvar se finalizar com alguma daquelas na caixa.

Beto acho que entendi o que o colega necessita, não salvar caso a combo não esteja preenchida

se for isso pode tentar essa alternativa no botão salvar antes do comando para salvar.

Código:

If IsNull(Me.SuaCombo) = True Then
MsgBox "A finalização é de preenchimento obrigatório", vbInformation, "Atenção"
Me.SuaCombo.SetFocus
Else
....
....

Eu ja tenho um codigo no botao salvar...
eu nao sei como ajustar esse q vc mandou.

o codigo que tenho ele salva os dodos em outra tabela como havia falado.


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


caminho = "C:\Users\EderL\Desktop\Planejamento_Mis\01_bancos\01_banco_clientes.accdb"


Set DB = CurrentDb()
Set rs = DB.OpenRecordset("03_ACIONAMENTOS")
rs.AddNew
rs("data") = date
rs("hora") = Form_TEMPO.hour
rs("usuario") = Form_acesso.[nome]
rs("CLIFOR") = Form_CLIENTES.[CLIFOR]
rs("acionamento") = Form_CLIENTES.[1_ACIONAMENTO]
rs("ACIONAMENTO_INA") = Form_CLIENTES.[2_ACIONAMENTO]
rs("obs") = Form_CLIENTES.OBS_CONTATO

Anexa os objetos envolvidos para ver de fato como está sendo feito essa ação, para que se possa ter uma noção melhor na orientação da solução.

Se entendi corretamente, você deseja que só permita salvar os dados após o campo finalização ser preenchido, certo? Então, no botão salvar, coloque o seguinte procedimento:

Private Sub cmdSalvar_Click()

If IsNull(Me.SuaCombo) = True Then
MsgBox "A finalização é de preenchimento obrigatório", vbInformation, "Atenção"
Me.SuaCombo.SetFocus
End If

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

caminho = "C:\Users\EderL\Desktop\Planejamento_Mis\01_bancos\01_banco_clientes.accdb"

Set DB = CurrentDb()
Set rs = DB.OpenRecordset("03_ACIONAMENTOS")

rs.AddNew
rs("data") = Date
rs("hora") = Form_TEMPO.Hour
rs("usuario") = Form_acesso.[nome]
rs("CLIFOR") = Form_CLIENTES.[CLIFOR]
rs("acionamento") = Form_CLIENTES.[1_ACIONAMENTO]
rs("ACIONAMENTO_INA") = Form_CLIENTES.[2_ACIONAMENTO]
rs("obs") = Form_CLIENTES.OBS_CONTATO
rs.Update

rs.Close
DB.Close

End Sub

O procedimento acima irá testar primeiro se o campo FINALIZAÇÃO foi preenchido. Caso não seja preenchido e mesmo assim ele clicar no botão salvar, o procedimento não irá salvar os dados na tabela que você especificou porque há o comando "Exit Sub", que irá parar o procedimento sem passar pelas funções de conexão de banco de dados.

Abraços.

Julio isso mesmo perfeito...

Funcionou em partes ele avisa que nao é obrigatorio e tal...

mas mesmo assim ele ainda salva na outra tabela sem a finalizacao.

Eder,

Falha minha mesmo.

Esqueci de colocar a instrução Exit Sub.

If IsNull(Me.SuaCombo) = True Then
MsgBox "A finalização é de preenchimento obrigatório", vbInformation, "Atenção"
Me.SuaCombo.SetFocus
Exit Sub
End If

Tente novamente.

Abraços.

Julio,

Perfeitoooooo caraa muito obrigado...

eu ainda sou novato rs...

vlw.