Olá, se eu entendi vcc quer imprimir um recido de uma derteminada casa etc... inderpedente de onde vc esteja no programa, é isso? se for declara uma VAR publica e em cada form que vc estiver passa o valor q vc quer para a VAR e dispara a impressão, ah! em vez de colocar o select no detail do AR, coloca no botao de imprimi....

Ok vou tentar Valew por postar amigo

Alsterra eu fiz assim coloquei uma Global no no modulo como vc falow e deu certo valew mesmo irmao fiz assim

 

Global Recibo As String

 

no botao Imprimir Recibo chamei essa global

 

Recibo = "Apartamentos"

 

No  Active Coloquei o seguinte

 

Option Explicit

Private rs As New ADODB.Recordset

 

e no Detail coloquei isso

 

Dim Apartamentos As String
    Dim Casas As String
   
   
   
  
 If Recibo = "Apartamentos" Then
    Set rs = cnBd.Execute("Select * from Tbl_Proprietarios where Codigo = " & Val(FrmApartamentos.txtcod.Text))
   FieldNome.Text = rs(1)
    Else
    Set rs = cnBd.Execute("Select * from Tbl_Proprietarios where Codigo = " & Val(frmcasas.txtcodC.Text))
    FieldNome.Text = rs(1)
End If