Ola pessoal faz tempo q eu nao posto mas eu voltei , e gostaria da ajuda de vcs nessa pessoal, tenho um formulario que serve pra dois tipos cadastros Cadastro de Proprietarios e CAdastro de Compradores , pra especificar o que vou cadasrtar nesse formulario eu seleciono no checkBox o tipo de cadastro , tem o ChekProp e tem o CheckComp,  POde ocorrer que o Proprietario de tal Produto tanbem seja um comprador de outro , entau assim , marco os dois checkBox , mas o Problema seria que quero levar algusn dados desse formulario de cadastro tanto de proprietarios como de compradores pra outro form tenho um form de Produto onde nele tenho "O codigo do Proprietario" e  o "Codigo do Comprador" apartir de um Botao chamado " Clientes" eu apertaria e apareceria os dados do Proprietario e do Comprador dakele Produto em um form, dados como nome por exemplo, para que eu nao tenha que sair do Form Produto para ir ate o form CAdastro pra ver de quem é o Codigo do Proprietario ou COmprador de tal Produto  eu uso o seguite codigo , dentro do Form Produto eu tenho um botao onde chamo o form que vai mostrar os dados dos CAdastrados eu ponho assim (FrmHistorioco é o nome do Formulario que mostra os dados dos Cadastrados)

 

FrmHistorico.CodigoProprietario = txtcodC.Text

 

e dentro do form Historico tenho isso

 

Public Property Let CodigoProprietario(vValue As Long)
mvarCodigoProprietario = vValue
End Property

Private Sub Form_Load()
   
    Set cnBd = New ADODB.Connection
    cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Bdimobiliaria.MDB;Persist Security Info=False"
   
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
   
    rs.Open "SELECT  Nome FROM Tbl_Cadastro WHERE Codigo = " & mvarCodigoProprietario, cnBd, adOpenDynamic, adLockOptimistic

 

      Do Until rs.EOF
    Select Case UCase(rs(0))
   
     Case "Proprietario"
    
           txtnome = rs(1)
       
        Case "Comprador"
             txtinquilino = rs(1)
          End Select
    rs.MoveNext
Loop
 rs.Close
Set rs = Nothing
cnBd.Close
Set cnBd = Nothing
End Sub

 

so lenbrando que eu no Form Cadastro eu uso os mesmo campos pra diferentes cadasrto , campo codigo (autonum), nome , etc , especifico pelo checkbox somente que tipo de cadastro

 

Desculpe, mas não entendi o que voce deseja..

Poderia detalhar melhor ?

Bom vou tentar de novo , obrigado por postar, eu tenho um form q serve como um multicadasrto , nele eu cadastro diferentes tipos de pessoas , Proprietarios e Clientes

, pra saber qual cadastro é de proprietario por exemlpo eu seleciono um checkBox , escrito Proprietario entaun sei q akele registro é de Proprietario e vice e versa pra clientes

 

nesse form tenho os campo

 

Codigo

Nome

endereço

Checkprop

CheckCli

 

e queria levar esses dados pra outro form, no outro form tenho os seguintes campos

 

Nome Do Proprietaro

Nome do Cliente

 

queira saber como fazer pra pegar os dados do Proprietario e levar pra outro form somente porq esta marcado no check que o cadasrto é de Proprietario e a mesma coisa pra Cliente, como colocar nas txts em outro form o nome do Proprietario e o Nome do Cliente ,

eu esrtou colocando assim agora esta dando certo mas se algum campo  estiver em branco sem codigo pra poder puxar o nome do Proprietario ou Comprador no form Cadasdtro da erro de Either bof or eof is true or the currenty record has been deleted.Request Operation requires a currentu record

 

por exemplo se eu to no registro 1 e eu coloco

Codigo do proprietario 1

VCodigo do Comprador 2

 

mas se eu for no segundo registro e por somente o Codigo do proproprietario e nao tiver Comprador da esse erro

 

 Set cnBd = New ADODB.Connection
    cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Bdimobiliaria.MDB;Persist Security Info=False"
   
    rs.CursorLocation = adUseClient
 
   'Proprietário
   
    rs.Open "SELECT Nome FROM Tbl_Proprietarios WHERE Codigo = " & Val(frmcasas.txtcodC.Text), cnBd, adOpenDynamic, adLockOptimistic
    txtnome.Text = rs(0)
    rs.Close
   
   
   'Comprador
 
    rs.Open "SELECT Nome FROM Tbl_Proprietarios WHERE Codigo = " & Val(frmcasas.txtcomprador.Text), cnBd, adOpenDynamic, adLockOptimistic
    txtComprado.Text = rs(0)
    rs.Close
       

  
    Set rs = Nothing
   
    cnBd.Close
    Set cnBd = Nothing
   
End Sub