Formulário Receber Variável De Outro Formulário

[Claudio Bianco]

Como um formulario recebe a variavel da consulta ao Banco de Dados de outro formulario.

Segue abaixo o código do formulário que faz a consulta ao BD, preciso que outro formulário

receba a variável: codigo

Private Sub cmdEntrar_Click()

Set rs = CreateObject("ADODB.Recordset")

With rs

.Open "select usuario, senha, cod_usuario from usuarios where usuario='" & txtUsuario.Text & "' and senha='" & txtSenha.Text & "'", cn, adOpenKeyset, adLockOptimistic

If .RecordCount = 0 Then

MsgBox "Usuário ou senha inválida!", vbExclamation, "Erro"

Else

codigo = CLng(rs("cod_usuario"))

frmPrincipal.Show

Unload Me

End If

.Close

End With

End Sub

[kuroi]

crie ela como Public num Module.

[Claudio Bianco]

Digite um código de exemplo, por favor.

[lcs_sp]

Crie uma função publica no formulário principal

public sub recebe(codigo as integer)

variavel=codigo

end sub

no outro formulário faça isto

call formulario.recebe(2)

[pitbull]

olha só cara, faz o seguinte

Na seção General do form que vai receber o valor você coloca o seguinte

dim wCodigo as Long

Public Property Get Codigo() As Long

Codigo= wCodigo

End Property

Public Property Let Codigo(ByVal pValor As Long)

wCodigo = pValor

End Property

na hora de fechar o form que efetuou a consulta você passa o valor pro form que chamou assim

FormqueChamou.Codigo=rs("cod_usuario")