BOTAO INCLUIR

GESSINGER 04/03/2010 21:00:46
#336107
Ola pessoal beleza,
Nos meu aplicativo tenho o costume de colocar no fom Cadastro, 2 boões - [txt-color=#e80000]cmdNovo e cmGravar[/txt-color]gostaria de saber se essa pratica é correta, e peço que me mostrem como fazer essas 2 operaçoes
num so botão...olha ai meu código !! Obrigado


Private Sub cmdNovo_Click()
txtNome.Text = [Ô][Ô]
txtTelefone.Text = [Ô][Ô]
txtCelular.Text = [Ô][Ô]
End Sub


Private Sub cmdGravar_Click()
rs.AddNew
txtNome.Text = Trim(txtNome.Text)
rs!Nome = Trim(txtNome.Text)
rs!Telefone = txtTelefone.Text
rs!Celular = txtCelular.Text

rs.Update
MsgBox [Ô]Registro incluido com sucesso...[Ô], vbInformation, [Ô]Aviso[Ô]

End Sub
DAVERSON 04/03/2010 21:03:33
#336108
geralmente nao e feito em um so botao, apenas e colocado um botao sobre o outro, e quando se clica no primeiro este se oculta, exibindo o segundo, e da mesma forma ao clicar no segundo exibe novamente o primeiro...

flw.
GESSINGER 04/03/2010 21:13:06
#336114
mas, gostaria de saber como fazer isso ...pode me ajudar
BRESSAN 04/03/2010 22:07:07
#336128 Resposta escolhida
GESSINGER,

é só você colocar no evento clique do botão...quando clicado o parametro visible tem que ficar com o valor false ou seja:
visible=false

existe uma outra forma que eu utilizo...
coloco um botão no form...dentro do evento clique do botão eu fico verificando qual é o caption dele...
por exemplo..
   
Private Sub CmdComando_Click()
    Select Case CmdComando.Caption
        Case [Ô]&Novo[Ô]
            MsgBox [Ô]seu código aqui[Ô], vbInformation, CmdComando.Caption
            CmdComando.Caption = [Ô]&Gravar[Ô]
        Case [Ô]&Gravar[Ô]
            MsgBox [Ô]seu código aqui[Ô], vbInformation, CmdComando.Caption
            CmdComando.Caption = [Ô]&Novo[Ô]
    End Select
End Sub


Abraço...

Marcelo Bressan
DAVERSON 04/03/2010 23:31:11
#336132
Como eu disse ficaria bem simples


Private Sub cmdNovo_Click()
txtNome.Text = [Ô][Ô]
txtTelefone.Text = [Ô][Ô]
txtCelular.Text = [Ô][Ô]

cmdNovo.visible=false
cmdgravar.visible=true

End Sub


Private Sub cmdGravar_Click()
rs.AddNew
txtNome.Text = Trim(txtNome.Text)
rs!Nome = Trim(txtNome.Text)
rs!Telefone = txtTelefone.Text
rs!Celular = txtCelular.Text

rs.Update
MsgBox [Ô]Registro incluido com sucesso...[Ô], vbInformation, [Ô]Aviso[Ô]
cmdNovo.visible=true
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar