COMO CHAMAR UMA PESQUISA DE UM FORM PARA O OUTRO

USUARIO.EXCLUIDOS 14/09/2006 15:03:50
#171483
Bom meu problema é que tenho um botao de pesquisa em um form e uma grade pra receber os dados, e quando clico no botaode de pesquisa ele chama um outro form com um text de nome e um botao de OK.
Eu faço a pesquisa de nome e quando clico em ok gostaria que todos os dados carregasses em uma grade que eu tenho no primeniro form.
RENATOBELETTI 14/09/2006 15:06:03
#171484
Cria uma variavel global em um modulo
USUARIO.EXCLUIDOS 14/09/2006 15:41:05
#171495
mas como criar uma variavel global ..aguem poderia me ajudar eu nunca fiz nenhuma.
USUARIO.EXCLUIDOS 14/09/2006 15:43:53
#171497
um modo simples de fazer seria.
exemplo vc tem um dado no form2 num text2.text e quer enviar pro form1 em outro text, exemplo text1.text

form1.show
form1.text1.text = form2.text2.text
USUARIO.EXCLUIDOS 14/09/2006 15:49:32
#171500 Resposta escolhida
Carinha, tente assim:

Chamarei de frmPesquisa o form que informará os dados, e em seu código ficaria (txtNome = o textbox para informar o nome, cmdOk = o botão de confirmação e cmdCancel = o botão que cancela):

Option Explicit
Public Cancelado As Boolean

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOk_Click()
Me.Hide
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancelado = True
Cancel = True
Me.Hide
End Sub


E para chamá-lo:
frmPesquisa.Show vbModal
If frmPesquisa.Cancelado = False Then
  rst.Open "SELECT * FROM TABELA WHERE CAMPO LIKE '" & frmPesquisa.txtDado & "%'"
  'popula o grid
End If
Unload frmPesquisa


Qualquer dúvida poste...flw
USUARIO.EXCLUIDOS 14/09/2006 15:52:32
#171501
Ou ainda vc pode usar um InputBox:

Dim Retorno As String
Retorno = InputBox("Informe o nome à  pesquisar!")
If StrPtr(Retorno) Then 'Caso não tenha cancelado
  rst.Open "SELECT * FROM TABELA WHERE CAMPO LIKE '" & Retorno & "%'"
  'popula o grid
End If


Qualquer dúvida poste...flw
USUARIO.EXCLUIDOS 14/09/2006 15:59:06
#171505
vc poderia algum outro meio de contado pra me ajudar matioli
tipo msn
Tópico encerrado , respostas não são mais permitidas
Voltar