BUCHA DAS GRANDES - CURSOR ESTA PRESO NO CAMPO DAT
Não queria fazer isso mas ja fiz.
Imaginava que poderia pegar situações que tivesse algo tipo
If TB_nom1 and TB_nom2 and TB_nom3
Já enchi um monte de if rsrsrsrs
Valeu.
Imaginava que poderia pegar situações que tivesse algo tipo
If TB_nom1 and TB_nom2 and TB_nom3
Já enchi um monte de if rsrsrsrs
Valeu.
NÃO, MELHOR "IFAR" CASO A CASO E MOSTRAR MENSAGENS PERSONALIZADAS ALéM DE POR O FOCO NO LOCAL EXATO !!!
Os campos são distintos...Cada um deve ter um tratamento de erro.
Se vc generalizar a mensagem como "Os campos não podem ficar em branco", para o usuário fica dificil procurar os campos na tela.
Personalizado é outra coisa: Aparece a msg "Informe a data de nascimento" e + interessante ainda, além da mensagem colocar o foco no campo que deve ser preenchido. Exemplo:
if txtnome="" then
msgbox "Informe o nome"
txtnome.setfocus
exit sub
end if
Se vc generalizar a mensagem como "Os campos não podem ficar em branco", para o usuário fica dificil procurar os campos na tela.
Personalizado é outra coisa: Aparece a msg "Informe a data de nascimento" e + interessante ainda, além da mensagem colocar o foco no campo que deve ser preenchido. Exemplo:
if txtnome="" then
msgbox "Informe o nome"
txtnome.setfocus
exit sub
end if
Acho que com If aconteceu o que eu queria
Só que me gerou um problema.
Olhe depois desse codigo ,esse abaixo esta certo no form2 que eu quero.
Mas o outro ,olhe .
No R1VN001 quando tento fazer a mesma coisa ,me deparo com essa situação abaixo de erro.
Já existe um R1VN002.Show ,porém além de ter o R1VN002.Show relacionado aos combos ,também é necessário para o confirma e agora ?
Isso sem falar que ainda nem coloquei as opções de option button e combo para verificação de preencgimento.
R1VN002.Show
If Me.cb_ssti.Text = "Novo Projeto" Then
'Verifica se a opcao Novo Projeto foi selecionado , se sim o option button
'Novo Projeto sera abilitada e as outras duas opcoes seram desabilitadas
R1VN002.ob_ets.Value = True
R1VN002.ob_spl.Enabled = False
R1VN002.ob_crc.Enabled = False
ElseIf Me.cb_ssti.Text = "Correção de erros" Then
'Verifica se a opcao Correcao de erros foi selecionado ,se sim o option button
'correcao de erro sera abilitada e as outras duas opcoes seram desabilitadas
R1VN002.ob_ets.Enabled = False
R1VN002.ob_spl.Enabled = False
R1VN002.ob_crc.Value = True
End If
If cb_ssti.Text = "Adaptativa" Or _
cb_ssti.Text = "Consulta-Consultoria" Or _
cb_ssti.Text = "Departamental" Or _
cb_ssti.Text = "Emergencial" Or _
cb_ssti.Text = "Evolutiva" Or _
cb_ssti.Text = "Infra-Estrutura" Or _
cb_ssti.Text = "Migração SGD para SSTI" Then
'Verifica se a opcao Adaptativa,Consulta-Consultoria,Departamental,Emergencial,Evolutiva
'Infra-Estrutura e Migração SGD para SSTI for selecionado ,se sim o option button
'Completa e Simplificada sera abilitada e a opcao correcao de erro sera desabilitada
R1VN002.ob_ets.Enabled = True
R1VN002.ob_spl.Enabled = True
R1VN002.ob_crc.Enabled = False
End If
End Sub
Só que me gerou um problema.
Olhe depois desse codigo ,esse abaixo esta certo no form2 que eu quero.
Mas o outro ,olhe .
Private Sub bt_confirma_Click()
If Trim(TB_nom.Text) = "" Then
Beep
MsgBox "Não é possivel Confirmar a operação sem o preenchimento dos campos", vbCritical, "Nome Inválido "
TB_nom.SetFocus
End If
If Trim(tb_vrs.ClipText) = "" Then
Beep
MsgBox "Não é possivel Confirmar a operação sem o preenchimento dos campos", vbCritical, "Versão Inválida"
tb_vrs.SetFocus
End If
If Trim(tb_dt.ClipText) = "" Then
Beep
MsgBox "Não é possivel Confirmar a operação sem o preenchimento dos campos", vbCritical, "Data Inválida"
tb_dt.SetFocus
End If
If Trim(tb_dv.ClipText) = "" Then
Beep
MsgBox "Não é possivel Confirmar a operação sem o preenchimento dos campos", vbCritical, "Documento Data Inválida"
tb_dv.SetFocus
End If
End Sub
No R1VN001 quando tento fazer a mesma coisa ,me deparo com essa situação abaixo de erro.
Já existe um R1VN002.Show ,porém além de ter o R1VN002.Show relacionado aos combos ,também é necessário para o confirma e agora ?
Isso sem falar que ainda nem coloquei as opções de option button e combo para verificação de preencgimento.
Private Sub Confirma_Click()
If Trim(tb_ssti_null.Text) = "" Then
Beep
MsgBox "Não é possivel Confirmar a operação sem o preenchimento dos campos", vbCritical, "Nº SSTI Inválido "
tb_ssti_null.SetFocus
End If
If Trim(tb_num_ssti.Text) = "" Then
Beep
MsgBox "Não é possivel Confirmar a operação sem o preenchimento dos campos", vbCritical, "NºRS Inválido"
tb_num_ssti.SetFocus
End If
If Trim(tb_asu.Text) = "" Then
Beep
MsgBox "Não é possivel Confirmar a operação sem o preenchimento dos campos", vbCritical, "Assunto Inválido"
tb_asu.SetFocus
End If
End Sub
R1VN002.Show
If Me.cb_ssti.Text = "Novo Projeto" Then
'Verifica se a opcao Novo Projeto foi selecionado , se sim o option button
'Novo Projeto sera abilitada e as outras duas opcoes seram desabilitadas
R1VN002.ob_ets.Value = True
R1VN002.ob_spl.Enabled = False
R1VN002.ob_crc.Enabled = False
ElseIf Me.cb_ssti.Text = "Correção de erros" Then
'Verifica se a opcao Correcao de erros foi selecionado ,se sim o option button
'correcao de erro sera abilitada e as outras duas opcoes seram desabilitadas
R1VN002.ob_ets.Enabled = False
R1VN002.ob_spl.Enabled = False
R1VN002.ob_crc.Value = True
End If
If cb_ssti.Text = "Adaptativa" Or _
cb_ssti.Text = "Consulta-Consultoria" Or _
cb_ssti.Text = "Departamental" Or _
cb_ssti.Text = "Emergencial" Or _
cb_ssti.Text = "Evolutiva" Or _
cb_ssti.Text = "Infra-Estrutura" Or _
cb_ssti.Text = "Migração SGD para SSTI" Then
'Verifica se a opcao Adaptativa,Consulta-Consultoria,Departamental,Emergencial,Evolutiva
'Infra-Estrutura e Migração SGD para SSTI for selecionado ,se sim o option button
'Completa e Simplificada sera abilitada e a opcao correcao de erro sera desabilitada
R1VN002.ob_ets.Enabled = True
R1VN002.ob_spl.Enabled = True
R1VN002.ob_crc.Enabled = False
End If
End Sub
Este erro ocorre porque para cada if aberto, vc deve fechá-lo (end if), conte os if e end if para sanar este erro.
Tópico encerrado , respostas não são mais permitidas