Jump to content
Fórum Script Brasil

new_rayderss

Membros
  • Content Count

    57
  • Joined

  • Last visited

Community Reputation

0 Neutro

About new_rayderss

  • Birthday 10/10/1989

Contatos

  • MSN
    new_rayderss'@'hotmail"."com
  • ICQ
    0

Perfil

  • Gender
    Male
  • Location
    Rio de Janeiro
  1. Muito obrigado os tutorias são bem interessantes, irei praticar e espero obter bons resultados. obrigado mais uma vez pela resposta.
  2. 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á.
  3. Eu gostei da idéia, seria bem interessante ^^
  4. 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 pron
  5. 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.rec
  6. ??? 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
  7. 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
  8. 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. ^^
  9. 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 = " & l
  10. 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?
  11. 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.
  12. 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 Else
  13. 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.txtR
  14. É que não entendi. Como vou aplicar isso na minha dúvida. Assim como vai reconhecer que é a segunda linha que quero?
  15. 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
×
×
  • Create New...