Gostaria de saber como faço uma pesquiza introduzindo valores nos campos de texto de um form , redireccionando-me para um segundo form (ao pressionar um botão de pesquisa) lendo os valores dos campos de texto do primeiro form e efectuando assim a pesquisa.
Agradecia que me explicassem como resolver isto utilizando o componente gráfico VB pertencente ao Access.
Peço desculpa se este tópico não é o mais apropiado para colocar esta dúvida
Agradeço desde já a vossa atenção
Ajuda Em Pesquisa No Access
Started By net_man, 22/06/2009, 11:52
1 reply to this topic
#1
Posted 22/06/2009, 11:52
Simplicidade é a sofisticação máxima.(Leonardo da Vinci);
Se, a princípio, a ideia não é absurda, então não há esperança para ela. (albert einstein);
Não ande pelos caminhos traçados, pois conduzem apenas até onde outros foram...(Grahan Bell);
Se, a princípio, a ideia não é absurda, então não há esperança para ela. (albert einstein);
Não ande pelos caminhos traçados, pois conduzem apenas até onde outros foram...(Grahan Bell);
#2
Posted 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
Edição feita por: net_man, 30/06/2009, 15:39.
Simplicidade é a sofisticação máxima.(Leonardo da Vinci);
Se, a princípio, a ideia não é absurda, então não há esperança para ela. (albert einstein);
Não ande pelos caminhos traçados, pois conduzem apenas até onde outros foram...(Grahan Bell);
Se, a princípio, a ideia não é absurda, então não há esperança para ela. (albert einstein);
Não ande pelos caminhos traçados, pois conduzem apenas até onde outros foram...(Grahan Bell);
0 user(s) are reading this topic
0 membro(s), 0 visitante(s) e 0 membros anônimo(s)