new_rayderss

Muito obrigado os tutorias são bem interessantes, irei praticar e espero obter bons resultados. obrigado mais uma vez pela resposta.

Olá pessoal tudo bem? Bom eu estava na net e achei esses efeitos de jogos e queria saber que tipo de filtros utilizo para conseguir tal resultado? achei bem interessante, e tenho interesse porque gosto de mexer com esse makers que existem por aí. Creio que quem manja bastante de PS irá saber, espero a ajuda de vocês, obrigado desde já.

Eu gostei da idéia, seria bem interessante ^^

funcionooo :P Achei que o find seguia a mesma idéia do filter, e sabe que olhando aqui, o problema todo foi porque coloquei como click :P O que você falo esta certíssimo. Mas aprendi bastante com isso e um novo método para enviar dados de um form para outro. E quanto a ocx eu já estou pesquisando sobre isso, achei um tuto do marcoratti sobre o inno vou dar uma lida nele. Criar um setup resolve tudo mesmo, mais queria aprender o batch pelo exemplo de agora eu passo o projeto para alguém no vb ainda sem estar compilado aí a pessoa não tem a ocx ao invés dela registrar, já clicar batch e pronto, evitando possível erro do receptor erra no caso a sintaxe ou não saber o que fazer. :P Estou pesquisando sobre isso tb ^^ obrigado pela força amigo!!

Bom eu não tenho muito conhecimento em relação a esse banco de dados neste momento, mais creio que não irá influencia. Tipo se você estiver usando um componente para conectar um banco de dados (DataControl, Adodc etc.) ou ainda mesmo estiver fazendo tudo via código. você add um componente e deixa visible como false. Aí quando você for salvar você chama o update dele tb. Exemplo: Um componente data com o nome 'Data1' esse você vinculo com os objetos, beleza. Aí um novo data com o nome Data2. Data2.recordset.fields(0) = Data1.recorset.fields(0) . . . Data2.recordset.fields(10) = Data1.recorset.fields(8) E faz do mesmo jeito até chega no último campo. lembre-se que os números são exemplos, verifica no seu banco de dados a ordem de cada um e não se esqueça que começa pelo 0(zero). Se for via código, a idéia é semelhante, só que você não precisa declarar elas num módulo (Variáveis Globais), já que você está usando como apenas um objetivo. Declara no próprio form onde você quer fazer tal ação. Qualquer dúvida pode postar. ^^

??? você esqueceu de informar qual o nome do campo que você define se é Usuário ou Administrador. Mais suponhamos que seja Acesso. Então você faz um módulo caso você não tenha ainda no seu projeto. E declare uma variável global. Public Acesso As String Aí no form do login do seu projeto você faz assim.. Acesso = .Fields(?) 'Substitua ? pelo campo que for no seu banco de dados. Exemplo: Eu tenho Usuario, Senha e Acesso no seu banco de dados. Sabendo que começa por zero então no meu exemplo o Acesso será correspondente ao 2. Depois disso, vamos para o MDIForm.. Private Sub MDIForm_Activate() Select Case Acesso Case "Usuario" ??.enabled = false ??.enabled = false Case "Administrador" End Select End Sub Substitua ?? pelo nome do seu menu ou submenu ou qualquer outro objeto que possua a propriedade enabled. Claro que não precisa ficar preso só nisso, são exemplos o intuito desse meu exemplo é para você entende como funciona a permissão. E com mais pratica você verá que é apenas um exemplo de vários que você irá ver por aí. beleza? qualquer tipo de dúvida pode postar. ^^

Kuroi você não sabe como mudou o projeto :P aquele lance no momento tirei por questão de teste. Mas estou usando ele para isso agora. observe os forms(ConAnimal e frmAnimal) que deixei aberto que você vai entender. E não chamo como vbmodal ou 1 porque o esquema de chamar outro form da erro. não está funcionando ainda, vou deixar o projeto que está mais atualizado. Aqui esta o projeto conto com sua ajuda ;) Projeto

Poxa cara isso é interessante, mostra aí para gente como você conseguiu. Se você acha uma solução tb é muito bom mostra-la para todos, assim outros irão aprender. eu mesmo fiquei curioso em saber qual foi a solução. ^^

No form que consulta os animais. Private Sub dbgAnimal_Click() If txtCodCli.Text = "" Then MsgBox "Informe o código do cliente", vbOKOnly, "Info da Consulta" Exit Sub ElseIf Data1.Recordset.RecordCount < 1 Then MsgBox "Não há cliente para editar", vbOKOnly, "Info da Consulta" Exit Sub Else dbgAnimal.Col = 3 frmAnimal.lblAux2.Caption = Data1.Recordset.Fields(3).Value frmAnimal.lblCliChama.Caption = "x" frmAnimal.Show End If End Sub No form do cadastro do Animal, no active. Private Sub Form_Activate() If lblCliChama.Caption = "x" Then Data1.Recordset.FindFirst "CodigoDoAnimal = " & lblAux2.Caption cmdEditar_Click Unload ConAnimal End If End Sub Eu tinha feito esse esquema, só que não funciono. Fiz o esquema da label daquele jeito mesmo que você me ensino, mas não obtive sucesso. :(

hm agora não está dando nenhum erro, mais não está filtrando o resultado, ele abre o primeiro registro existente, ou seja estiver filtrado um cliente cujo codigo é 2 ele não considera nem isso e abre o primeiro cujo código é 1. Tentei colocar o Find em um e no outro e nada. o que pode esta acontecendo?

Sério!! conferi o banco de dados e está certinho. quanto ao findfirst eu coloquei assim, no form Cadastro Do Animal If lblCliChama.Caption = "x" Then cmdEditar_Click Data1.Recordset.FindFirst ("CodigoDoAnimal like '*" & Verificar2) Unload ConAnimal End If só que apresenta esse erro, 3077 : Syntax error in String expression.

Sim ele continua mostrando o 1° e em relação a isso.. .. graças aó santo pai não está acontecendo :rolleyes: e quanto a essa idéia é eu fiz tudo só que não sei como posso montar esse findfirst.. Public corrente2, Per, Pergunta, Usu, Form, Style, [b]Verificar2[/b] As String verificar2 é a variável, optei usar variavel porque vou utiliza-la em outro forms que tem a idéia parecida. Aí no fomulário do ConAnimal (onde eu faço a procura do animal) Private Sub dbgAnimal_Click() If txtCodCli.Text = "" Then MsgBox "Informe o código do cliente", vbOKOnly, "Info da Consulta" Exit Sub ElseIf Data1.Recordset.RecordCount < 1 Then MsgBox "Não há cliente para editar", vbOKOnly, "Info da Consulta" Exit Sub Else Verificar2 = 0 dbgAnimal.Col = 3 Verificar2 = Data1.Recordset.Fields(3).Value frmAnimal.lblCliChama.Caption = "x" frmAnimal.Show End If End Sub coloquei como está aí encima. Agora falta o findfirst eu busco aqui nesse ou no do Cadastro do Animal ? e outra coisa eu estou utilizando a ídeia que você me deu. O data1animal esta vinculado com os objetos, e lembra que não podia fazer uma busca no mesmo tempo que peço para editar? Private Sub Form_Load() Data1Animal.DatabaseName = App.Path & "\db2.mdb" Data1Animal.RecordSource = "Animais" Data1Animal.RecordsetType = 1 Data1.DatabaseName = App.Path & "\db2.mdb" Data1.RecordSource = "Animais" Data1.RecordsetType = 1 . . End Sub Agora lembro porque setava Set frmAnimal.Data1.Recordset = Data1.Recordset.OpenRecordset você que me deu essa idéia em alguns posts anteriores que estão neste tópico mesmo.

If txtCodCli.Text = "" Then MsgBox "Informe o código do cliente", vbOKOnly, "Info da Consulta" Exit Sub ElseIf Data1.Recordset.RecordCount < 1 Then MsgBox "Não há cliente para editar", vbOKOnly, "Info da Consulta" Exit Sub Else dbgAnimal.Col = 0 frmAnimal.lblCodCli2.Caption = Data1.Recordset.Fields(0).Value dbgAnimal.Col = 1 frmAnimal.cboNomeCli.Text = Data1.Recordset.Fields(1).Value dbgAnimal.Col = 2 frmAnimal.txtNomeAnim.Text = Data1.Recordset.Fields(2).Value dbgAnimal.Col = 3 frmAnimal.lblCodAnimal2.Caption = Data1.Recordset.Fields(3).Value dbgAnimal.Col = 4 frmAnimal.txtRaca.Text = Data1.Recordset.Fields(4).Value dbgAnimal.Col = 5 frmAnimal.cboPorte.Text = Data1.Recordset.Fields(5).Value dbgAnimal.Col = 6 frmAnimal.txtCor.Text = Data1.Recordset.Fields(6).Value dbgAnimal.Col = 7 frmAnimal.txtPeso.Text = Data1.Recordset.Fields(7).Value dbgAnimal.Col = 8 frmAnimal.cboTipo.Text = Data1.Recordset.Fields(8).Value dbgAnimal.Col = 9 frmAnimal.txtIdade.Text = Data1.Recordset.Fields(9).Value dbgAnimal.Col = 10 frmAnimal.cbGrupo.Text = Data1.Recordset.Fields(10).Value dbgAnimal.Col = 11 frmAnimal.txtMatri.Text = Data1.Recordset.Fields(11).Value dbgAnimal.Col = 12 frmAnimal.txtRenova.Text = Data1.Recordset.Fields(12).Value frmAnimal.lblCliChama.Caption = "x" frmAnimal.Show End If Kuroi ainda não foi, tentei colocando o nome do campo, tentei colocando os números, tentei tirando a propriedade value, tentei utilizando isso 'Set frmAnimal.Data1.Recordset = Data1.Recordset.OpenRecordset e não foi.

É que não entendi. Como vou aplicar isso na minha dúvida. Assim como vai reconhecer que é a segunda linha que quero?

Primeiro desculpa que copiei o código do clique errado. E sobre o set eu pensava que era necessário para abrir os dados, na verdade foi uma confusão minha, testando sem ele vi que não precisa. agora explicando o evento do clique é assim, cada informação na coluna do dbgrid vai ser enviada para determinado campo do formulário do animal. O problema é que ele não reconhece a linha que cliquei, filtrei usando o código do cliente, esse cliente tem 2 animais. E quero editar o animal cujo código é 4, porém mesmo clicando na segunda linha ele abre a primeira linha. Ps: O dbgrid é só para consultar os resultados eu não posso modificar na nele é apenas para visualizar, caso queira modificar eu clico encima e aí ocorre o envio das informações para o formulário correspondente, no caso o do Cadastro do Animal. melhoro?