1 reply to this topic

[net_man]

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

[net_man]

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.

 
 
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.