Boas ...
eu assisti o video ontem e adurei a ideia do google wave ...
aixo q se vai tornar numa ferramenta muito importante principalmente no trabalho, sendo opensorce vai permitir a adaptação desta aplicação as necessidades das nossas empresas .
Cumps
- Fórum WMO
- → Viewing Profile: Posts: net_man
Community Stats
- Group Usuários
- Active Posts 18
- Profile Views 1917
- Member Title Novato no fórum
- Age 34 years old
- Birthday February 6, 1990
-
Sexo
Male
-
Localidade
Porto, Portugal
-
Interesses
xD
Contact Information
- Windows Live net_maniaco@hotmail.com
0
Neutral
User Tools
Latest Visitors
Posts I've Made
In Topic: Google Wave
30/06/2009, 16:49
In Topic: Ajuda Em Pesquisa No Access
30/06/2009, 15:32
Então pessoal ???
nenhuma resposta …
Bem de qualquer maneira agradece-vos pois sei se que se n ajudaram foi porque n puderam.
Eu revirei a cabeção procurei um pouco e por fim achei uma maneira de fazer o q queria…
aqui esta o código para alguem que tenha a msm duvida.
frm e o form onde mostro os resultados da pesquisa este n contem qualquer tipo de codificação
campo1, campo2 .. campoN estes sao os campos com os criterios da pesquisa
criterio e uma variavel global q criei usando um modulo
nenhuma resposta …
Bem de qualquer maneira agradece-vos pois sei se que se n ajudaram foi porque n puderam.
Eu revirei a cabeção procurei um pouco e por fim achei uma maneira de fazer o q queria…
aqui esta o código para alguem que tenha a msm duvida.
Private Sub cmd_all_Click() Form_frm.RecordSource = "select * from db" Form_frm.SetFocus End Sub Private Sub cmd_procura_Click() entrada = 0 If (IsNull(campo1) = False) Then criterio = "campo1_na_tabela like '" & campo1.Value & "'" entrada = entrada + 1 End If If (IsNull(campo2) = False) Then If entrada = 0 Then criterio = "campo2_na_tabela like '" & campo2.Value & "'" entrada = entrada + 1 Else criterio = criterio & "and campo2_na_tabela like '" & campo2.Value & "'" End If If criterio = "" Then MsgBox ("Não inseriu nenhum parâmetro de pesquisa!") Else Form_frm.RecordSource = "select * from db where " & criterio If IsNull(Form_frm.ID) = True Then MsgBox ("Registo não existe!") Me.SetFocus Else Form_frm.Caption = "titulo" Form_frm.SetFocus End If End If End Sub Private Sub Form_Load() DoCmd.OpenForm "frm" criterio = "" End Sub Private Sub Form_Close() DoCmd.Close acForm, "frm" End Sub
frm e o form onde mostro os resultados da pesquisa este n contem qualquer tipo de codificação
campo1, campo2 .. campoN estes sao os campos com os criterios da pesquisa
criterio e uma variavel global q criei usando um modulo
In Topic: Votação 11º Desafio De Vetores - Tecnologia
31/01/2009, 10:48
1.PenDragon
2.JCamilo
2.JCamilo
In Topic: Votação 11º Desafio De Bitmaps - Ciborgue
31/01/2009, 10:44
Leone Fernandes
Helioth
Helioth
In Topic: 11º Desafio De Bitmaps - Ciborgue
26/01/2009, 16:58
ainda vou a tempo...
Estive a formatar o PC e tava a var q n ia ter tempo, mas fiz uma coisinha rapida
1) Programa e Versão: Photoshop CS4
2) Ferramentas: Spot Healing Brush Tool, Pen Tool
3) Desafio: Instalar Photoshop antes do fim de desafio
4) Plugins: não
5) Créditos: Google e o meu tele...
6) Conceito: I Ciborgue
7) Trabalho: LINK
Estive a formatar o PC e tava a var q n ia ter tempo, mas fiz uma coisinha rapida
1) Programa e Versão: Photoshop CS4
2) Ferramentas: Spot Healing Brush Tool, Pen Tool
3) Desafio: Instalar Photoshop antes do fim de desafio
4) Plugins: não
5) Créditos: Google e o meu tele...
6) Conceito: I Ciborgue
7) Trabalho: LINK
- Fórum WMO
- → Viewing Profile: Posts: net_man
- Privacy Policy
- Regras ·