É possivel chamar um RS de outro formulário?

[Leandro_Pirozzi]

Tenho um botao que efetua a procura por NOMEMPRESA. É possivel utilizar esse rsbusca em outro form? Pois preciso que esses dados carreguem um grid que esta no form frmpesq. então quando o usuário clicar na grid preenchida queria preencher todos os campos do form atual.

Private Sub cmdPesq2_Click()

Dim SQL As String

SQL = "SELECT CODEMP, NOMEMPRESA, ENDEMPRESA, ESTEMPRESA, CIDEMPRESA, BAIEMPRESA, UFEMPRESA, " & _

"CEPEMPRESA, TELEMPRESA, FAXEMPRESA, NUMFUNCEMPRESA, GRUPOEMPRESA, ATIVEMPRESA, PAISEMPRESA, CGC, " & _

"INSC, DATAINC, DATALT, EQUIPE, ASSESSOR, LIVRE " & _

"from CONTATOS_EMPRESA where (NOMEMPRESA) like '" & txtempresa.Text & "%'"

Set cnbusca = New ADODB.Connection

With cnbusca

.Provider = "Microsoft.Jet.OLEDB.4.0"

.ConnectionString = "Data Source=" & App.Path & "\CONTATOS.mdb;"

.Open

End With

Set rsbusca = New ADODB.Recordset

Set rsbusca.ActiveConnection = cnbusca

rsbusca.CursorLocation = adUseClient

rsbusca.Open SQL

Set frmpesq.DataGrid5.DataSource = rsbusca

If rsbusca.EOF Then

frmpesq.Visible = False

MsgBox ("Não existem dados para essa busca!")

txtempresa.Text = ""

txtempresa.SetFocus

Else

frmpesq.DataGrid5.Visible = True

frmpesq.Show

End If

End Sub

[Macêdo]

Coloque o Recordset num modulo e declare como public

Public Rs as New ADODB.Recordset

[MRMB]

É possível sim!

Conforme mencionado anteriormente através de modulo.

Também pode passar o RS como parâmetro para algum método público do formulário que deseja acessar o RS.

Editado Março 11, 2009 por Crispim