[Resolvido] pesquisa

[bocafeina 0]

Ae galerar to incomodando denovo.

bom eu queria saber como eu posso usar o código abaixo em um botão de pesquisa na form1 e aparecer nos campos da form2.

 

Private Sub Cmd_busca_Click()
 Dim Dado As String, mensagem As String
 Dim Consulta_SQl As String
 Dim resultado As String
 Dado = InputBox("Informe a op")
  Consulta_SQl = "SELECT * FROM ordensdeproducao " + _
                 "WHERE op = '" + Dado + "';"
 Set Pesquisa = database.OpenRecordset(Consulta_SQl, dbOpenSnapshot)
 mensagem = "Posição retornada por Pesquisa.AbsolutePosition = " + _
           Str(Pesquisa.AbsolutePosition)
           
 resultado = MsgBox(mensagem, vbInformation)
 Limpa_Campos
 If Pesquisa.AbsolutePosition > -1 Then
    mensagem = "OP encontrado: " + Pesquisa("op")
    resultado = MsgBox(mensagem, vbInformation)
    
    Atualiza_Campos_Pesquisa_SQL
    
 Else
 
    resultado = MsgBox("OP não encontrado.", vbInformation)
    
 End If

[quintelab 91]

Você deve popular algum objeto e passa-lo no construtor do Form2.

 

Abraços...

[scorpio 7]

VB6 até onde eu sei não tem contrutor.

 

 

Tente fazer assim

Form2.txtNome.Text = valor

[quintelab 91]

Fail!!

Realmente não sabia disso!!

[bocafeina 0]

vlw muito obrigado