RECEBER DADO
Um Colega aki me ajudou a fazer o seguinte comando eu tenho 3 forms FrmProprietario ( onde cadastro Clientes) FrmAreas ( onde cadastro os Produtos dos Clientes ) e o FrmHistorico( onde quero receber dados do form proprietarios)
No FrmProprietario eu cadastro meu cliente e dou um Codigo a ele (txtcod)
No FrmArea eu represento esse pelo Codigo desse Proprietario na (txtcodA)
e gostaria de chamar o FrmHistorico pelo FrmAreas ao apertar um botao que levasse para esse form e la tivesse dados do proprietario como Nome etc , pra q eu naun tenha q sair do fora Area pra saber quem é o proprietaroi de tal Codigo , apertando um botao aparece o nome e outros campos dele
dentro do botao " Historico" do FrmArea tem o seguinte Codigo
FrmHistorico.CodigoProprietario = 1
FrmHistorico.Show vbModal
e denro do FrmHistorico tem a seguinte instrucao q fiz
Option Explicit
Private cnBd As ADODB.Connection
Private rs As ADODB.Recordset
Private mvarCodigoProprietario As Integer
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, TelRes, CPF, RG FROM Tbl_Proprietarios WHERE Codigo = " & mvarCodigoProprietario, cnBd, adOpenDynamic, adLockOptimistic
MsgBox rs.RecordCount
If rs.RecordCount > 0 Then
txtNome.Text = rs("Nome")
txttelefone.Text = rs("TelRes")
txtcpf.Text = rs("CPF")
txtrg.Text = rs("RG")
Else
MsgBox "Dados do Proprietário não Encontrados.", vbCritical, "||| ATENÇÃO |||"
End
End If
Mas a pergunta seria Funciona esse codigo , mas quando insiro um novo registro o proprietario desse novo regisrto naun se altera no FrmHistorico, alguem visualizou oq esta acontecendo? pode me ajudar? obrigado
No FrmProprietario eu cadastro meu cliente e dou um Codigo a ele (txtcod)
No FrmArea eu represento esse pelo Codigo desse Proprietario na (txtcodA)
e gostaria de chamar o FrmHistorico pelo FrmAreas ao apertar um botao que levasse para esse form e la tivesse dados do proprietario como Nome etc , pra q eu naun tenha q sair do fora Area pra saber quem é o proprietaroi de tal Codigo , apertando um botao aparece o nome e outros campos dele
dentro do botao " Historico" do FrmArea tem o seguinte Codigo
FrmHistorico.CodigoProprietario = 1
FrmHistorico.Show vbModal
e denro do FrmHistorico tem a seguinte instrucao q fiz
Option Explicit
Private cnBd As ADODB.Connection
Private rs As ADODB.Recordset
Private mvarCodigoProprietario As Integer
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, TelRes, CPF, RG FROM Tbl_Proprietarios WHERE Codigo = " & mvarCodigoProprietario, cnBd, adOpenDynamic, adLockOptimistic
MsgBox rs.RecordCount
If rs.RecordCount > 0 Then
txtNome.Text = rs("Nome")
txttelefone.Text = rs("TelRes")
txtcpf.Text = rs("CPF")
txtrg.Text = rs("RG")
Else
MsgBox "Dados do Proprietário não Encontrados.", vbCritical, "||| ATENÇÃO |||"
End
End If
Mas a pergunta seria Funciona esse codigo , mas quando insiro um novo registro o proprietario desse novo regisrto naun se altera no FrmHistorico, alguem visualizou oq esta acontecendo? pode me ajudar? obrigado
bem...
vc não pode deixar fixo o código 1, e sim mandar o código que está no txtcodA
FrmHistorico.CodigoProprietario = txtcodA.Text
outra coisa... após o endif do form_load do frmhistorico, feche a conexão e o recordset
vc não pode deixar fixo o código 1, e sim mandar o código que está no txtcodA
FrmHistorico.CodigoProprietario = txtcodA.Text
outra coisa... após o endif do form_load do frmhistorico, feche a conexão e o recordset
vou ver
ese codigo serivira pra qualquer form ne , eu so teria q mudar os nomes dos txts dos form ne
vc quer dizer em relação a outros forms fazerem pesquisa de proprietários? sim... basta apenas passar de forma correta o código do proprietário
valew veio
resolveu? favor finalizar o tópico.
Tópico encerrado , respostas não são mais permitidas