new_rayderss

funciono.. mas tenho umas dúvidas. eu fiz isso no cadastro do cliente, sendo que quando vou para o cadastro do animal (os campos estão bloqueados e só fica pronto para cadastrar quando clicar com o botão Novo. Porém quando uso método para mudar de cadastro ele fica bloqueado. Então o que faço para habilitar tb o cadastro do animal quando mudar de cadastro? Vou ter que fazer isso no cadastro do ou cliente do animal? Private Sub cmdNovo_Click() Data1Animal.Recordset.AddNew Ativar Me Verificar = 1 Fechado Me txtCodAnimal.Locked = True txtCodCli(2).Text = "" txtCodCli(2).Locked = True txtNome(1).Locked = True txtMatri.Text = "" cmdCancelar.Caption = "&Cancelar" cmdCancelar.ToolTipText = "Cancela a ação" cmdNovo.Enabled = False cmdGuardar.Enabled = True cmdEditar.Enabled = False cmdLocalizar.Enabled = False cmdExcluir.Enabled = False cmdCancelar.Enabled = True Data1Animal.Visible = False Call GerarNovoCodigo End Sub essa é a codificação do botão novo do cadastro do animal, queria ativar isso tudo aí encima quando usar a mudança de cadastro.

Funciono direitinho cara vlw!! e o segundo caso foi em relação se fosse um nome o código por exemplo?

Sim estou começando.. e preciso terminar esse projeto para passar de ano :P e vou dar uma olhada nos links. vou tentar explicar o que quero.. nessa janela cadastro o cliente tudo corretamente. depois esses campos que estão em destaque com círculo, eu queria enviar eles para o cadastro do animal. Aí funcionaria assim depois que cadastrar o cliente salvando o cadastro com o guardar. iria aparecer uma mensagem do tipo "Deseja cadastrar os animais do cliente?" caso o usuario clique em sim vai para outro cadastro e fecha aquele. Caso clique em não ai permanece no cadastro do cliente. e depois só poderá add as informações destacadas usando o consultar.

Eu preciso de uma explicação, porque já vi fazendo isso usando o ADO mas e com data é como?

Na verdade o que queria fazer era verificar se existe algum cliente com determinado código. Código esse que identifica ele. exemplo cliente n° 01, cliente n° 02 entende?

Cara a idéia funciona só que falta alguma coisa. Os problemas que deram foram os seguintes: - quando não há registro algum e eu add esses dois novos registros, ele simplesmente aceita sem falar nada é como aquelas condições não valessem de nada. - quando vou editar aí mudo o numero do código para algo já existente, aí que funciono, só que aquele move next faz com que apague as informações já add. aí eu tirei aquilo e fiz isso Do While Not Data1.Recordset.EOF If Me.txtCodCli = "" Then MsgBox "Informe o código do cliente", vbOKOnly, "Campo Vazio" Exit Sub ElseIf Data1.Recordset.Fields(0) = txtCodCli.Text Then MsgBox ("Este Código já existe.") txtCodCli.Text = "" txtCodCli.SetFocus Exit Sub Else MsgBox ("Código aceito.") txtCodCli.Enabled = True End If 'Data1.Recordset.MoveNext Exit Sub txtNome.SetFocus Loop só não entendi porque quando vai de 1° não funciona.

Bom pessoal estou começando em visual basic e estou tendo um probleminha: Como o título do tópico diz estou tentando fazer isso só que não está dando certo, e tb nem sei se estou fazendo certo. Private Sub cmdGuardar_Click() Do While (Data1.Recordset.EOF = False) If Me.txtCodCli = "" Then MsgBox "Informe o código do cliente", vbOKOnly, "Campo Vazio" Exit Sub ElseIf Data1.Recordset.Fields(0) = txtCodCli.Text Then MsgBox ("Este Código já existe.") txtCodCli.Text = "" txtCodCli.SetFocus Exit Sub Else MsgBox ("Código aceito.") txtCodCli.Enabled = True End If Loop eu tentei isso, porém não deu certo, o progrma trava tudo e nada faz. Alguém pode me dar uma ajuda? Agradeço a atenção. ^^